diff --git a/ghcjs-dom-jsffi.cabal b/ghcjs-dom-jsffi.cabal --- a/ghcjs-dom-jsffi.cabal +++ b/ghcjs-dom-jsffi.cabal @@ -1,5 +1,5 @@ name: ghcjs-dom-jsffi -version: 0.5.0.1 +version: 0.5.0.2 cabal-version: >=1.24 build-type: Simple license: MIT diff --git a/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs b/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"drawArraysInstancedANGLE\"]($2,\n$3, $4, $5)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs b/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"document\"]" js_getDocument :: AbstractView -> IO (Nullable Document) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs b/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -23,12 +22,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | error :: EventName AbstractWorker UIEvent diff --git a/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs b/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId :: AllAudioCapabilities -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs b/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"sourceType\"]" js_getSourceType :: AllVideoCapabilities -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getFloatFrequencyData\"]($2)" js_getFloatFrequencyData :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"animationName\"]" js_getAnimationName :: AnimationEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"update\"]()" js_update :: ApplicationCache -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Attr.hs b/src/GHCJS/DOM/JSFFI/Generated/Attr.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Attr.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Attr.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"name\"]" js_getName :: Attr -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getChannelData\"]($2)" js_getChannelData :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newAudioBufferCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -36,12 +35,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"start\"]($2, $3, $4)" js_start :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -78,12 +77,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new (window[\"AudioContext\"]\n||\nwindow[\"webkitAudioContext\"])()" diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"maxChannelCount\"]" js_getMaxChannelCount :: AudioDestinationNode -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)" js_setPosition :: AudioListener -> Float -> Float -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"connect\"]($2, $3, $4)" js_connect :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setValueAtTime\"]($2, $3)" js_setValueAtTime :: AudioParam -> Float -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"playbackTime\"]" js_getPlaybackTime :: AudioProcessingEvent -> IO Double diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"AudioStreamTrack\"]($1)" js_newAudioStreamTrack :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"id\"]" js_getId :: AudioTrack -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: AudioTrackList -> Word -> IO (Nullable AudioTrack) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"reason\"]" js_getReason :: AutocompleteErrorEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs b/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -23,12 +22,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)" js_getVisible :: BarProp -> IO Bool diff --git a/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs b/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"charging\"] ? 1 : 0)" js_getCharging :: BatteryManager -> IO Bool diff --git a/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -24,12 +23,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"url\"]" js_getUrl :: BeforeLoadEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"returnValue\"] = $2;" js_setReturnValue :: BeforeUnloadEvent -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getFrequencyResponse\"]($2,\n$3, $4)" js_getFrequencyResponse diff --git a/src/GHCJS/DOM/JSFFI/Generated/Blob.hs b/src/GHCJS/DOM/JSFFI/Generated/Blob.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Blob.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Blob.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"Blob\"]()" js_newBlob :: IO Blob diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSS.hs b/src/GHCJS/DOM/JSFFI/Generated/CSS.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSS.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSS.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"supports\"]($2, $3) ? 1 : 0)" js_supports2 :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"encoding\"] = $2;" js_setEncoding :: CSSCharsetRule -> Nullable JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"fontface\"]" js_getFontface :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: CSSFontFaceRule -> IO (Nullable CSSStyleDeclaration) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"href\"]" js_getHref :: CSSImportRule -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"keyText\"] = $2;" js_setKeyText :: CSSKeyframeRule -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertRule\"]($2)" js_insertRule :: CSSKeyframesRule -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)" js_insertRule :: CSSMediaRule -> JSString -> Word -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"selectorText\"] = $2;" js_setSelectorText :: CSSPageRule -> Nullable JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -42,12 +41,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setFloatValue\"]($2, $3)" js_setFloatValue :: CSSPrimitiveValue -> Word -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -35,12 +34,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern UNKNOWN_RULE = 0 pattern STYLE_RULE = 1 pattern CHARSET_RULE = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: CSSRuleList -> Word -> IO (Nullable CSSRule) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -40,12 +39,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)" js_getPropertyValue :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"selectorText\"] = $2;" js_setSelectorText :: CSSStyleRule -> Nullable JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)" js_insertRule :: CSSStyleSheet -> JSString -> Word -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)" js_insertRule :: CSSSupportsRule -> JSString -> Word -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern CSS_INHERIT = 0 pattern CSS_PRIMITIVE_VALUE = 1 pattern CSS_VALUE_LIST = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: CSSValueList -> Word -> IO (Nullable CSSValue) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"addColorStop\"]($2, $3)" js_addColorStop :: CanvasGradient -> Float -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"canvas\"]" js_getCanvas :: CanvasRenderingContext -> IO (Nullable HTMLCanvasElement) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -116,12 +115,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"save\"]()" js_save :: CanvasRenderingContext2D -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs b/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"max\"]" js_getMax :: CapabilityRange -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs b/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"substringData\"]($2, $3)" js_substringData :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -23,12 +22,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"remove\"]()" js_remove :: ChildNode -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs b/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"top\"]" js_getTop :: ClientRect -> IO Float diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs b/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: ClientRectList -> Word -> IO (Nullable ClientRect) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"wasClean\"] ? 1 : 0)" js_getWasClean :: CloseEvent -> IO Bool diff --git a/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs b/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clearConsoleMessages\"]()" js_clearConsoleMessages :: CommandLineAPIHost -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Comment.hs b/src/GHCJS/DOM/JSFFI/Generated/Comment.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Comment.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Comment.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -23,12 +22,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"Comment\"]($1)" js_newComment :: JSString -> IO Comment diff --git a/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"buffer\"] = $2;" js_setBuffer :: ConvolverNode -> Nullable AudioBuffer -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs b/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"latitude\"]" js_getLatitude :: Coordinates -> IO Double diff --git a/src/GHCJS/DOM/JSFFI/Generated/Counter.hs b/src/GHCJS/DOM/JSFFI/Generated/Counter.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Counter.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Counter.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"identifier\"]" js_getIdentifier :: Counter -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs b/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getRandomValues\"]($2)" js_getRandomValues :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs b/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"type\"]" js_getType :: CryptoKey -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs b/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"publicKey\"]" js_getPublicKey :: CryptoKeyPair -> IO (Nullable CryptoKey) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initCustomEvent\"]($2, $3,\n$4, $5)" js_initCustomEvent :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"name\"]" js_getName :: DOMError -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)" js_hasFeature :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: DOMNamedFlowCollection -> Word -> IO (Nullable WebKitNamedFlow) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"DOMParser\"]()" js_newDOMParser :: IO DOMParser diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: DOMSettableTokenList -> Word -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: DOMStringList -> Word -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: DOMTokenList -> Word -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs b/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"WebKitDataCue\"]()" js_newDataCue :: IO DataCue diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clearData\"]($2)" js_clearData :: DataTransfer -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getAsString\"]($2)" js_getAsString :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: DataTransferItemList -> Word -> IO (Nullable DataTransferItem) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Database.hs b/src/GHCJS/DOM/JSFFI/Generated/Database.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Database.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Database.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"changeVersion\"]($2, $3, $4,\n$5, $6)" js_changeVersion :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newDatabaseCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs b/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)" js_postMessage :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs b/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"delayTime\"]" js_getDelayTime :: DelayNode -> IO (Nullable AudioParam) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"value\"]" js_getValue :: DeviceProximityEvent -> IO Double diff --git a/src/GHCJS/DOM/JSFFI/Generated/Document.hs b/src/GHCJS/DOM/JSFFI/Generated/Document.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Document.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Document.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -169,12 +168,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"Document\"]()" js_newDocument :: IO Document diff --git a/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs b/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"DocumentFragment\"]()" js_newDocumentFragment :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs b/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"name\"]" js_getName :: DocumentType -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"threshold\"]" js_getThreshold :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs b/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,11 +24,5 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif 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 --- a/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,11 +25,5 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif 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 --- a/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SRGB_EXT = 35904 pattern SRGB_ALPHA_EXT = 35906 pattern SRGB8_ALPHA8_EXT = 35907 diff --git a/src/GHCJS/DOM/JSFFI/Generated/Element.hs b/src/GHCJS/DOM/JSFFI/Generated/Element.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Element.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Element.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -109,12 +108,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getAttribute\"]($2)" js_getAttribute :: Element -> JSString -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Entity.hs b/src/GHCJS/DOM/JSFFI/Generated/Entity.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Entity.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Entity.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId :: Entity -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Enums.hs b/src/GHCJS/DOM/JSFFI/Generated/Enums.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Enums.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Enums.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -64,12 +63,6 @@ import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif data KeyType = KeyTypeSecret | KeyTypePublic diff --git a/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"message\"]" js_getMessage :: ErrorEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/Event.hs b/src/GHCJS/DOM/JSFFI/Generated/Event.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Event.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Event.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -43,12 +42,6 @@ import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"stopPropagation\"]()" js_stopPropagation :: Event -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs b/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"handleEvent\"]($2)" js_handleEvent :: EventListener -> Nullable Event -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs b/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"EventSource\"]($1,\n$2)" js_newEventSource :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs b/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"addEventListener\"]($2, $3,\n$4)" js_addEventListener :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/File.hs b/src/GHCJS/DOM/JSFFI/Generated/File.hs --- a/src/GHCJS/DOM/JSFFI/Generated/File.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/File.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"name\"]" js_getName :: File -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileError.hs b/src/GHCJS/DOM/JSFFI/Generated/FileError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FileError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FileError.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern NOT_FOUND_ERR = 1 pattern SECURITY_ERR = 2 pattern ABORT_ERR = 3 diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileList.hs b/src/GHCJS/DOM/JSFFI/Generated/FileList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FileList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FileList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: FileList -> Word -> IO (Nullable File) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs b/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"FileReader\"]()" js_newFileReader :: IO FileReader diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs b/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"FileReaderSync\"]()" js_newFileReaderSync :: IO FileReaderSync diff --git a/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"relatedTarget\"]" js_getRelatedTarget :: FocusEvent -> IO (Nullable EventTarget) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs b/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"checkFont\"]($2,\n$3) ? 1 : 0)" js_checkFont :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/FormData.hs b/src/GHCJS/DOM/JSFFI/Generated/FormData.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FormData.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FormData.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"FormData\"]($1)" js_newFormData :: Nullable HTMLFormElement -> IO FormData diff --git a/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs b/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"gain\"]" js_getGain :: GainNode -> IO (Nullable AudioParam) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs b/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"id\"]" js_getId :: Gamepad -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs b/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs --- a/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"pressed\"] ? 1 : 0)" js_getPressed :: GamepadButton -> IO Bool diff --git a/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"gamepad\"]" js_getGamepad :: GamepadEvent -> IO (Nullable Gamepad) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs b/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getCurrentPosition\"]($2, $3,\n$4)" js_getCurrentPosition :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs b/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"coords\"]" js_getCoords :: Geoposition -> IO (Nullable Coordinates) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: HTMLAllCollection -> Word -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -47,12 +46,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"toString\"]()" js_toString :: HTMLAnchorElement -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLAppletElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt :: HTMLAreaElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clear\"] = $2;" js_setClear :: HTMLBRElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref :: HTMLBaseElement -> Nullable JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor :: HTMLBaseFontElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"aLink\"] = $2;" js_setALink :: HTMLBodyElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -42,12 +41,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"toDataURL\"]($2)" js_toDataURL :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: HTMLCollection -> Word -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"compact\"] = $2;" js_setCompact :: HTMLDListElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"options\"]" js_getOptions :: HTMLDataListElement -> IO (Nullable HTMLCollection) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"open\"] = $2;" js_setOpen :: HTMLDetailsElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"compact\"] = $2;" js_setCompact :: HTMLDirectoryElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLDivElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -43,12 +42,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"open\"]()" js_open :: HTMLDocument -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -46,12 +45,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertAdjacentElement\"]($2,\n$3)" js_insertAdjacentElement diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getSVGDocument\"]()" js_getSVGDocument :: HTMLEmbedElement -> IO (Nullable SVGDocument) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor :: HTMLFontElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: HTMLFormControlsCollection -> Word -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -43,12 +42,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: HTMLFormElement -> Word -> IO (Nullable Element) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getSVGDocument\"]()" js_getSVGDocument :: HTMLFrameElement -> IO (Nullable SVGDocument) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols :: HTMLFrameSetElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLHRElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"profile\"] = $2;" js_setProfile :: HTMLHeadElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLHeadingElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"version\"] = $2;" js_setVersion :: HTMLHtmlElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -41,12 +40,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getSVGDocument\"]()" js_getSVGDocument :: HTMLIFrameElement -> IO (Nullable SVGDocument) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: HTMLImageElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -83,12 +82,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"stepUp\"]($2)" js_stepUp :: HTMLInputElement -> Int -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -35,12 +34,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: HTMLLIElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"form\"]" js_getForm :: HTMLLabelElement -> IO (Nullable HTMLFormElement) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"form\"]" js_getForm :: HTMLLegendElement -> IO (Nullable HTMLFormElement) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: HTMLLinkElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"areas\"]" js_getAreas :: HTMLMapElement -> IO (Nullable HTMLCollection) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -35,12 +34,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"start\"]()" js_start :: HTMLMarqueeElement -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -84,12 +83,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"load\"]()" js_load :: HTMLMediaElement -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"compact\"] = $2;" js_setCompact :: HTMLMenuElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"content\"] = $2;" js_setContent :: HTMLMetaElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: HTMLMeterElement -> Double -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite :: HTMLModElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"compact\"] = $2;" js_setCompact :: HTMLOListElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -46,12 +45,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: HTMLOptGroupElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: HTMLOptionElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"namedItem\"]($2)" js_namedItem :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -35,12 +34,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLParagraphElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: HTMLParamElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth :: HTMLPreElement -> Int -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: HTMLProgressElement -> Double -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite :: HTMLQuoteElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: HTMLScriptElement -> Nullable JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -45,12 +44,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: HTMLSelectElement -> Word -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: HTMLSourceElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: HTMLStyleElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLTableCaptionElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -35,12 +34,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"cellIndex\"]" js_getCellIndex :: HTMLTableCellElement -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLTableColElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -47,12 +46,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"createTHead\"]()" js_createTHead :: HTMLTableElement -> IO (Nullable HTMLElement) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertCell\"]($2)" js_insertCell :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertRow\"]($2)" js_insertRow :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"content\"]" js_getContent :: HTMLTemplateElement -> IO (Nullable DocumentFragment) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -54,12 +53,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: HTMLTitleElement -> Nullable JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern NONE = 0 pattern LOADING = 1 pattern LOADED = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"compact\"] = $2;" js_setCompact :: HTMLUListElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -44,12 +43,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()" js_webkitEnterFullscreen :: HTMLVideoElement -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initHashChangeEvent\"]($2,\n$3, $4, $5, $6)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/History.hs b/src/GHCJS/DOM/JSFFI/Generated/History.hs --- a/src/GHCJS/DOM/JSFFI/Generated/History.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/History.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"back\"]()" js_back :: History -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"update\"]($2)" js_update :: IDBCursor -> JSVal -> IO (Nullable IDBRequest) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"value\"]" js_getValue :: IDBCursorWithValue -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"createObjectStore\"]($2, $3)" js_createObjectStore :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"open\"]($2, $3)" js_open :: IDBFactory -> JSString -> Double -> IO (Nullable IDBOpenDBRequest) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -41,12 +40,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)" js_openCursorRange :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"only\"]($2)" js_only :: IDBKeyRange -> JSVal -> IO (Nullable IDBKeyRange) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -45,12 +44,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"put\"]($2, $3)" js_put :: IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | blocked :: EventName IDBOpenDBRequest IDBVersionChangeEvent diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"result\"]" js_getResult :: IDBRequest -> IO (Nullable IDBAny) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"objectStore\"]($2)" js_objectStore :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"oldVersion\"]" js_getOldVersion :: IDBVersionChangeEvent -> IO Double diff --git a/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs b/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"ImageData\"]($1, $2,\n$3)" js_newImageData :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs b/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs --- a/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -42,12 +41,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"loaded\"]()" js_loaded :: InspectorFrontendHost -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs b/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs --- a/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -61,12 +60,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setTouchEventEmulationEnabled\"]($2)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/Internals.hs b/src/GHCJS/DOM/JSFFI/Generated/Internals.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Internals.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Internals.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -259,12 +258,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"address\"]($2)" js_address :: Internals -> Nullable Node -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/Location.hs b/src/GHCJS/DOM/JSFFI/Generated/Location.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Location.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Location.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"assign\"]($2)" js_assign :: Location -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs b/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"reservedVMBytes\"]" js_getReservedVMBytes :: MallocStatistics -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -36,12 +35,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"MediaController\"]()" js_newMediaController :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -50,12 +49,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenu :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"mediaElement\"]" js_getMediaElement :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern MEDIA_ERR_ABORTED = 1 pattern MEDIA_ERR_NETWORK = 2 pattern MEDIA_ERR_DECODE = 3 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern MEDIA_KEYERR_UNKNOWN = 1 pattern MEDIA_KEYERR_CLIENT = 2 pattern MEDIA_KEYERR_SERVICE = 3 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"keySystem\"]" js_getKeySystem :: MediaKeyEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"message\"]" js_getMessage :: MediaKeyMessageEvent -> IO (Nullable Uint8Array) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initData\"]" js_getInitData :: MediaKeyNeededEvent -> IO (Nullable Uint8Array) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"update\"]($2)" js_update :: MediaKeySession -> Nullable Uint8Array -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"WebKitMediaKeys\"]($1)" js_newMediaKeys :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: MediaList -> Word -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"addListener\"]($2)" js_addListener :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newMediaQueryListListener :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"MediaSource\"]()" js_newMediaSource :: IO MediaSource diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"sourceType\"]" js_getSourceType :: MediaSourceStates -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"webkitMediaStream\"]()" js_newMediaStream :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"stream\"]" js_getStream :: MediaStreamAudioDestinationNode -> IO (Nullable MediaStream) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"mediaStream\"]" js_getMediaStream :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"stream\"]" js_getStream :: MediaStreamEvent -> IO (Nullable MediaStream) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -36,12 +35,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getSources\"]($2)" js_getSources :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: MediaStreamTrackEvent -> IO (Nullable MediaStreamTrack) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newMediaStreamTrackSourcesCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"mandatory\"]" js_getMandatory :: MediaTrackConstraints -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"usedJSHeapSize\"]" js_getUsedJSHeapSize :: MemoryInfo -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs b/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"MessageChannel\"]()" js_newMessageChannel :: IO MessageChannel diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initMessageEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs b/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)" js_postMessage :: MessagePort -> JSVal -> Nullable Array -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs b/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"type\"]" js_getType :: MimeType -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs b/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: MimeTypeArray -> Word -> IO (Nullable MimeType) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -36,12 +35,6 @@ import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initMutationEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"MutationObserver\"]($1)" js_newMutationObserver :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -36,12 +35,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"type\"]" js_getType :: MutationRecord -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs b/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -35,12 +34,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getNamedItem\"]($2)" js_getNamedItem :: NamedNodeMap -> JSString -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs b/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -49,12 +48,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getGamepads\"]()" js_getGamepads :: Navigator -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"constraintName\"]" js_getConstraintName :: NavigatorUserMediaError -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newNavigatorUserMediaErrorCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newNavigatorUserMediaSuccessCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/Node.hs b/src/GHCJS/DOM/JSFFI/Generated/Node.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Node.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Node.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -73,12 +72,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)" js_insertBefore :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"acceptNode\"]($2)" js_acceptNode :: NodeFilter -> Nullable Node -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode :: NodeIterator -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: NodeList -> Word -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Notification.hs b/src/GHCJS/DOM/JSFFI/Generated/Notification.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Notification.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Notification.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"show\"]()" js_show :: Notification -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs b/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"createNotification\"]($2, $3,\n$4)" js_createNotification :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newNotificationPermissionCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs b/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,10 +24,4 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif 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 --- a/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,10 +24,4 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern HALF_FLOAT_OES = 36193 diff --git a/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs b/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"createVertexArrayOES\"]()" js_createVertexArrayOES :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"renderedBuffer\"]" js_getRenderedBuffer :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"OfflineAudioContext\"]($1,\n$2, $3)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"start\"]($2)" js_start :: OscillatorNode -> Double -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern HORIZONTAL = 0 pattern VERTICAL = 1 pattern BOTH = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"persisted\"] ? 1 : 0)" js_getPersisted :: PageTransitionEvent -> IO Bool diff --git a/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs b/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)" js_setPosition :: PannerNode -> Float -> Float -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs b/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"Path2D\"]()" js_newPath2D :: IO Path2D diff --git a/src/GHCJS/DOM/JSFFI/Generated/Performance.hs b/src/GHCJS/DOM/JSFFI/Generated/Performance.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Performance.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Performance.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"webkitGetEntries\"]()" js_webkitGetEntries :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"name\"]" js_getName :: PerformanceEntry -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: PerformanceEntryList -> Word -> IO (Nullable PerformanceEntry) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern TYPE_NAVIGATE = 0 pattern TYPE_RELOAD = 1 pattern TYPE_BACK_FORWARD = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initiatorType\"]" js_getInitiatorType :: PerformanceResourceTiming -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"navigationStart\"]" js_getNavigationStart :: PerformanceTiming -> IO Double diff --git a/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs b/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: Plugin -> Word -> IO (Nullable MimeType) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs b/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: PluginArray -> Word -> IO (Nullable Plugin) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -24,12 +23,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"state\"]" js_getState :: PopStateEvent -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newPositionCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern PERMISSION_DENIED = 1 pattern POSITION_UNAVAILABLE = 2 pattern TIMEOUT = 3 diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newPositionErrorCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs b/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: ProcessingInstruction -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"lengthComputable\"] ? 1 : 0)" js_getLengthComputable :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs b/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"postEvent\"]($2)" js_postEvent :: QuickTimePluginReplacement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs b/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"red\"]" js_getRed :: RGBColor -> IO (Nullable CSSPrimitiveValue) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"iceServers\"]" js_getIceServers :: RTCConfiguration -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"insertDTMF\"]($2, $3, $4)" js_insertDTMF :: RTCDTMFSender -> JSString -> Int -> Int -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"tone\"]" js_getTone :: RTCDTMFToneChangeEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"send\"]($2)" js_send :: RTCDataChannel -> Nullable ArrayBuffer -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"channel\"]" js_getChannel :: RTCDataChannelEvent -> IO (Nullable RTCDataChannel) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"RTCIceCandidate\"]($1)" js_newRTCIceCandidate :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"candidate\"]" js_getCandidate :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"urls\"]" js_getUrls :: RTCIceServer -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -48,12 +47,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"webkitRTCPeerConnection\"]($1)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newRTCPeerConnectionErrorCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"RTCSessionDescription\"]($1)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newRTCSessionDescriptionCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newRTCStatsCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"stat\"]($2)" js_stat :: RTCStatsReport -> JSString -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"result\"]()" js_result :: RTCStatsResponse -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs b/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: RadioNodeList -> Word -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Range.hs b/src/GHCJS/DOM/JSFFI/Generated/Range.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Range.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Range.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -58,12 +57,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"Range\"]()" js_newRange :: IO Range diff --git a/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs b/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"ReadableStream\"]($1)" js_newReadableStream :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/Rect.hs b/src/GHCJS/DOM/JSFFI/Generated/Rect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Rect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Rect.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"top\"]" js_getTop :: Rect -> IO (Nullable CSSPrimitiveValue) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newRequestAnimationFrameCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern UNKNOWN_ERR = 0 pattern DATABASE_ERR = 1 pattern VERSION_ERR = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"rows\"]" js_getRows :: SQLResultSet -> IO (Nullable SQLResultSetRowList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: SQLResultSetRowList -> Word -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newSQLStatementCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newSQLStatementErrorCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"executeSql\"]($2, $3, $4, $5)" js_executeSql :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newSQLTransactionCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newSQLTransactionErrorCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: SVGAElement -> IO (Nullable SVGAnimatedString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"glyphRef\"] = $2;" js_setGlyphRef :: SVGAltGlyphElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: SVGAnimatedAngle -> IO (Nullable SVGAngle) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"] = $2;" js_setBaseVal :: SVGAnimatedBoolean -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"] = $2;" js_setBaseVal :: SVGAnimatedEnumeration -> Word -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"] = $2;" js_setBaseVal :: SVGAnimatedInteger -> Int -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: SVGAnimatedLength -> IO (Nullable SVGLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: SVGAnimatedLengthList -> IO (Nullable SVGLengthList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"] = $2;" js_setBaseVal :: SVGAnimatedNumber -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: SVGAnimatedNumberList -> IO (Nullable SVGNumberList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: SVGAnimatedPreserveAspectRatio -> diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: SVGAnimatedRect -> IO (Nullable SVGRect) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"] = $2;" js_setBaseVal :: SVGAnimatedString -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: SVGAnimatedTransformList -> IO (Nullable SVGTransformList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getStartTime\"]()" js_getStartTime :: SVGAnimationElement -> IO Float diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"cx\"]" js_getCx :: SVGCircleElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clipPathUnits\"]" js_getClipPathUnits :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setRGBColor\"]($2)" js_setRGBColor :: SVGColor -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -41,12 +40,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN = 0 pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY = 1 pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGCursorElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"createEvent\"]($2)" js_createEvent :: SVGDocument -> JSString -> IO (Nullable Event) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -38,12 +37,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getPresentationAttribute\"]($2)" js_getPresentationAttribute diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"cx\"]" js_getCx :: SVGEllipseElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"externalResourcesRequired\"]" js_getExternalResourcesRequired diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_FEBLEND_MODE_UNKNOWN = 0 pattern SVG_FEBLEND_MODE_NORMAL = 1 pattern SVG_FEBLEND_MODE_MULTIPLY = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN = 0 pattern SVG_FECOLORMATRIX_TYPE_MATRIX = 1 pattern SVG_FECOLORMATRIX_TYPE_SATURATE = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: SVGFEComponentTransferElement -> IO (Nullable SVGAnimatedString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -37,12 +36,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN = 0 pattern SVG_FECOMPOSITE_OPERATOR_OVER = 1 pattern SVG_FECOMPOSITE_OPERATOR_IN = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -42,12 +41,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_EDGEMODE_UNKNOWN = 0 pattern SVG_EDGEMODE_DUPLICATE = 1 pattern SVG_EDGEMODE_WRAP = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_CHANNEL_UNKNOWN = 0 pattern SVG_CHANNEL_R = 1 pattern SVG_CHANNEL_G = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"azimuth\"]" js_getAzimuth :: SVGFEDistantLightElement -> IO (Nullable SVGAnimatedNumber) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)" js_setStdDeviation :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)" js_setStdDeviation :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"preserveAspectRatio\"]" js_getPreserveAspectRatio :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: SVGFEMergeNodeElement -> IO (Nullable SVGAnimatedString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setRadius\"]($2, $3)" js_setRadius :: SVGFEMorphologyElement -> Float -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: SVGFEOffsetElement -> IO (Nullable SVGAnimatedString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: SVGFETileElement -> IO (Nullable SVGAnimatedString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -37,12 +36,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_TURBULENCE_TYPE_UNKNOWN = 0 pattern SVG_TURBULENCE_TYPE_FRACTALNOISE = 1 pattern SVG_TURBULENCE_TYPE_TURBULENCE = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setFilterRes\"]($2, $3)" js_setFilterRes :: SVGFilterElement -> Word -> Word -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGFilterPrimitiveStandardAttributes -> diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"viewBox\"]" js_getViewBox :: SVGFitToViewBox -> IO (Nullable SVGAnimatedRect) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"glyphRef\"] = $2;" js_setGlyphRef :: SVGGlyphRefElement -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_SPREADMETHOD_UNKNOWN = 0 pattern SVG_SPREADMETHOD_PAD = 1 pattern SVG_SPREADMETHOD_REFLECT = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -37,12 +36,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getBBox\"]()" js_getBBox :: SVGGraphicsElement -> IO (Nullable SVGRect) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGImageElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -37,12 +36,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: SVGLengthList -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x1\"]" js_getX1 :: SVGLineElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x1\"]" js_getX1 :: SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -38,12 +37,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setOrientToAuto\"]()" js_setOrientToAuto :: SVGMarkerElement -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"maskUnits\"]" js_getMaskUnits :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"multiply\"]($2)" js_multiply :: SVGMatrix -> Nullable SVGMatrix -> IO (Nullable SVGMatrix) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: SVGNumber -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: SVGNumberList -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setUri\"]($2)" js_setUri :: SVGPaint -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -117,12 +116,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getTotalLength\"]()" js_getTotalLength :: SVGPathElement -> IO Float diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -40,12 +39,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern PATHSEG_UNKNOWN = 0 pattern PATHSEG_CLOSEPATH = 1 pattern PATHSEG_MOVETO_ABS = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegArcAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegArcRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegCurvetoCubicAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegCurvetoCubicRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegCurvetoCubicSmoothRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegCurvetoQuadraticAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegCurvetoQuadraticRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegLinetoAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegLinetoHorizontalAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegLinetoHorizontalRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegLinetoRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: SVGPathSegLinetoVerticalAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: SVGPathSegLinetoVerticalRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: SVGPathSegList -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegMovetoAbs -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGPathSegMovetoRel -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"patternUnits\"]" js_getPatternUnits :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"matrixTransform\"]($2)" js_matrixTransform :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: SVGPointList -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"points\"]" js_getPoints :: SVGPolygonElement -> IO (Nullable SVGPointList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"points\"]" js_getPoints :: SVGPolylineElement -> IO (Nullable SVGPointList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_PRESERVEASPECTRATIO_UNKNOWN = 0 pattern SVG_PRESERVEASPECTRATIO_NONE = 1 pattern SVG_PRESERVEASPECTRATIO_XMINYMIN = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"cx\"]" js_getCx :: SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: SVGRect -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGRectElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern RENDERING_INTENT_UNKNOWN = 0 pattern RENDERING_INTENT_AUTO = 1 pattern RENDERING_INTENT_PERCEPTUAL = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -71,12 +70,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"suspendRedraw\"]($2)" js_suspendRedraw :: SVGSVGElement -> Word -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: SVGScriptElement -> Nullable JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"offset\"]" js_getOffset :: SVGStopElement -> IO (Nullable SVGAnimatedNumber) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: SVGStringList -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: SVGStyleElement -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"hasExtension\"]($2) ? 1 : 0)" js_hasExtension :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -43,12 +42,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getNumberOfChars\"]()" js_getNumberOfChars :: SVGTextContentElement -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern TEXTPATH_METHODTYPE_UNKNOWN = 0 pattern TEXTPATH_METHODTYPE_ALIGN = 1 pattern TEXTPATH_METHODTYPE_STRETCH = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGTextPositioningElement -> IO (Nullable SVGAnimatedLengthList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setMatrix\"]($2)" js_setMatrix :: SVGTransform -> Nullable SVGMatrix -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -38,12 +37,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: SVGTransformList -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"href\"]" js_getHref :: SVGURIReference -> IO (Nullable SVGAnimatedString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif 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 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"x\"]" js_getX :: SVGUseElement -> IO (Nullable SVGAnimatedLength) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"viewTarget\"]" js_getViewTarget :: SVGViewElement -> IO (Nullable SVGStringList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"transform\"]" js_getTransform :: SVGViewSpec -> IO (Nullable SVGTransformList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern SVG_ZOOMANDPAN_UNKNOWN = 0 pattern SVG_ZOOMANDPAN_DISABLE = 1 pattern SVG_ZOOMANDPAN_MAGNIFY = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"zoomRectScreen\"]" js_getZoomRectScreen :: SVGZoomEvent -> IO (Nullable SVGRect) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Screen.hs b/src/GHCJS/DOM/JSFFI/Generated/Screen.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Screen.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Screen.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: Screen -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | audioProcess :: EventName ScriptProcessorNode AudioProcessingEvent diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"title\"]" js_getTitle :: ScriptProfile -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"children\"]()" js_children :: ScriptProfileNode -> IO JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -38,12 +37,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"allowsConnectionTo\"]($2) ? 1 : 0)" js_allowsConnectionTo :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"documentURI\"]" js_getDocumentURI :: SecurityPolicyViolationEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/Selection.hs b/src/GHCJS/DOM/JSFFI/Generated/Selection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Selection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Selection.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -41,12 +40,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"collapse\"]($2, $3)" js_collapse :: Selection -> Nullable Node -> Int -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -37,12 +36,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"appendBuffer\"]($2)" js_appendBuffer :: SourceBuffer -> Nullable ArrayBuffer -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: SourceBufferList -> Word -> IO (Nullable SourceBuffer) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId :: SourceInfo -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"speak\"]($2)" js_speak :: SpeechSynthesis -> Nullable SpeechSynthesisUtterance -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"charIndex\"]" js_getCharIndex :: SpeechSynthesisEvent -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"SpeechSynthesisUtterance\"]($1)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"voiceURI\"]" js_getVoiceURI :: SpeechSynthesisVoice -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/Storage.hs b/src/GHCJS/DOM/JSFFI/Generated/Storage.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Storage.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Storage.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"key\"]($2)" js_key :: Storage -> Word -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newStorageErrorCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initStorageEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"queryUsageAndQuota\"]($2, $3,\n$4)" js_queryUsageAndQuota :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"queryUsageAndQuota\"]($2, $3)" js_queryUsageAndQuota :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newStorageQuotaCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newStorageUsageCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newStringCallback :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"matchMedium\"]($2) ? 1 : 0)" js_matchMedium :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"type\"]" js_getType :: StyleSheet -> IO (Nullable JSString) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: StyleSheetList -> Word -> IO (Nullable StyleSheet) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs b/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -35,12 +34,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"encrypt\"]($2, $3, $4)" js_encrypt :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/Text.hs b/src/GHCJS/DOM/JSFFI/Generated/Text.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Text.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Text.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"Text\"]($1)" js_newText :: JSString -> IO Text diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initTextEvent\"]($2, $3, $4,\n$5, $6)" js_initTextEvent :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs b/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -23,12 +22,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: TextMetrics -> IO Float diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -35,12 +34,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"addCue\"]($2)" js_addCue :: TextTrack -> Nullable TextTrackCue -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"TextTrackCue\"]($1,\n$2, $3)" js_newTextTrackCue :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: TextTrackCueList -> Word -> IO (Nullable TextTrackCue) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: TextTrackList -> Word -> IO (Nullable TextTrack) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs b/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"start\"]($2)" js_start :: TimeRanges -> Word -> IO Double diff --git a/src/GHCJS/DOM/JSFFI/Generated/Touch.hs b/src/GHCJS/DOM/JSFFI/Generated/Touch.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Touch.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Touch.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"clientX\"]" js_getClientX :: Touch -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initTouchEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs b/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: TouchList -> Word -> IO (Nullable Touch) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: TrackEvent -> IO (Nullable GObject) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"propertyName\"]" js_getPropertyName :: TransitionEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs b/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"parentNode\"]()" js_parentNode :: TreeWalker -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs b/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -56,12 +55,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"testLong\"] = $2;" js_setTestLong :: TypeConversions -> Int -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initUIEvent\"]($2, $3, $4,\n$5, $6)" js_initUIEvent :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"receiver\"]" js_getReceiver :: UIRequestEvent -> IO (Nullable EventTarget) diff --git a/src/GHCJS/DOM/JSFFI/Generated/URL.hs b/src/GHCJS/DOM/JSFFI/Generated/URL.hs --- a/src/GHCJS/DOM/JSFFI/Generated/URL.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/URL.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"URL\"]($1)" js_newURL :: JSString -> IO URL diff --git a/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs b/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs --- a/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"toString\"]()" js_toString :: URLUtils -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs b/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs --- a/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"postMessage\"]($2)" js_postMessage :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -33,12 +32,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"VTTCue\"]($1, $2, $3)" js_newVTTCue :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"VTTRegion\"]()" js_newVTTRegion :: IO VTTRegion diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: VTTRegionList -> Word -> IO (Nullable VTTRegion) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs b/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "($1[\"valueMissing\"] ? 1 : 0)" js_getValueMissing :: ValidityState -> IO Bool diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"creationTime\"]" js_getCreationTime :: VideoPlaybackQuality -> IO Double diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"VideoStreamTrack\"]($1)" js_newVideoStreamTrack :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"id\"]" js_getId :: VideoTrack -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: VideoTrackList -> Word -> IO (Nullable VideoTrack) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | newVoidCallback :: (MonadIO m) => IO () -> m VoidCallback diff --git a/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs b/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"curve\"] = $2;" js_setCurve :: WaveShaperNode -> Nullable Float32Array -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -251,12 +250,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"copyBufferSubData\"]($2, $3,\n$4, $5, $6)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"size\"]" js_getSize :: WebGLActiveInfo -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif 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 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern COMPRESSED_RGB_PVRTC_4BPPV1_IMG = 35840 pattern COMPRESSED_RGB_PVRTC_2BPPV1_IMG = 35841 pattern COMPRESSED_RGBA_PVRTC_4BPPV1_IMG = 35842 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif pattern COMPRESSED_RGB_S3TC_DXT1_EXT = 33776 pattern COMPRESSED_RGBA_S3TC_DXT1_EXT = 33777 pattern COMPRESSED_RGBA_S3TC_DXT3_EXT = 33778 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"alpha\"] = $2;" js_setAlpha :: WebGLContextAttributes -> Bool -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"statusMessage\"]" js_getStatusMessage :: WebGLContextEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,11 +24,5 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif 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 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getTranslatedShaderSource\"]($2)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,10 +24,4 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif 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 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -43,12 +42,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"drawBuffersWEBGL\"]($2)" js_drawBuffersWEBGL :: WebGLDrawBuffers -> JSVal -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"loseContext\"]()" js_loseContext :: WebGLLoseContext -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -274,12 +273,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"activeTexture\"]($2)" js_activeTexture :: WebGLRenderingContextBase -> GLenum -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"rangeMin\"]" js_getRangeMin :: WebGLShaderPrecisionFormat -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"animationName\"]" js_getAnimationName :: WebKitAnimationEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: WebKitCSSFilterValue -> Word -> IO (Nullable CSSValue) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -46,12 +45,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"WebKitCSSMatrix\"]($1)" js_newWebKitCSSMatrix :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules :: WebKitCSSRegionRule -> IO (Nullable CSSRuleList) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: WebKitCSSTransformValue -> Word -> IO (Nullable CSSValue) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: WebKitCSSViewportRule -> IO (Nullable CSSStyleDeclaration) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"getRegionsByContent\"]($2)" js_getRegionsByContent :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"messageHandlers\"]" js_getMessageHandlers :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"availability\"]" js_getAvailability :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"WebKitPoint\"]()" js_newWebKitPoint :: IO WebKitPoint diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"propertyName\"]" js_getPropertyName :: WebKitTransitionEvent -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs b/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"WebSocket\"]($1, $2)" js_newWebSocket :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -32,12 +31,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"initWebKitWheelEvent\"]($2,\n$3, $4, $5, $6, $7, $8, $9, $10,\n$11, $12)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/Window.hs b/src/GHCJS/DOM/JSFFI/Generated/Window.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Window.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Window.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -128,12 +127,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"openDatabase\"]($2, $3, $4,\n$5, $6)" js_openDatabase :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs b/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"atob\"]($2)" js_atob :: WindowBase64 -> JSString -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs b/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -27,12 +26,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"setTimeout\"]($2, $3)" js_setTimeout :: WindowTimers -> JSVal -> Int -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/Worker.hs b/src/GHCJS/DOM/JSFFI/Generated/Worker.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Worker.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Worker.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"Worker\"]($1)" js_newWorker :: JSString -> IO Worker diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -29,12 +28,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"close\"]()" js_close :: WorkerGlobalScope -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -28,12 +27,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"toString\"]()" js_toString :: WorkerLocation -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -31,12 +30,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"webkitTemporaryStorage\"]" js_getWebkitTemporaryStorage :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -44,12 +43,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"XMLHttpRequest\"]()" js_newXMLHttpRequest :: IO XMLHttpRequest diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"position\"]" js_getPosition :: XMLHttpRequestProgressEvent -> IO Double diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif -- | abort :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"XMLSerializer\"]()" js_newXMLSerializer :: IO XMLSerializer diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -30,12 +29,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"XPathEvaluator\"]()" js_newXPathEvaluator :: IO XPathEvaluator diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -25,12 +24,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"evaluate\"]($2, $3, $4)" js_evaluate :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -26,12 +25,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)" js_lookupNamespaceURI :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -39,12 +38,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "$1[\"iterateNext\"]()" js_iterateNext :: XPathResult -> IO (Nullable Node) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs b/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} @@ -34,12 +33,6 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif foreign import javascript unsafe "new window[\"XSLTProcessor\"]()" js_newXSLTProcessor :: IO XSLTProcessor diff --git a/src/GHCJS/DOM/Types.hs b/src/GHCJS/DOM/Types.hs --- a/src/GHCJS/DOM/Types.hs +++ b/src/GHCJS/DOM/Types.hs @@ -100,6 +100,9 @@ , GLintptr(..), GLsizeiptr(..), GLubyte(..), GLushort(..), GLuint(..), GLfloat(..), GLclampf(..) , GLint64, GLuint64 + -- * Used for better error messages + , HasCallStack + -- * Interface types from IDL files -- AUTO GENERATION STARTS HERE