module JSDOM.Generated.AudioContext
(newAudioContext, createBuffer, createBuffer_,
createBufferUnchecked, createBufferFromArrayBuffer,
createBufferFromArrayBuffer_, createBufferFromArrayBufferUnchecked,
decodeAudioData, createBufferSource, createBufferSource_,
createBufferSourceUnchecked, createMediaElementSource,
createMediaElementSource_, createMediaElementSourceUnchecked,
createMediaStreamSource, createMediaStreamSource_,
createMediaStreamSourceUnchecked, createMediaStreamDestination,
createMediaStreamDestination_,
createMediaStreamDestinationUnchecked, createGain, createGain_,
createGainUnchecked, createDelay, createDelay_,
createDelayUnchecked, createBiquadFilter, createBiquadFilter_,
createBiquadFilterUnchecked, createWaveShaper, createWaveShaper_,
createWaveShaperUnchecked, createPanner, createPanner_,
createPannerUnchecked, createConvolver, createConvolver_,
createConvolverUnchecked, createDynamicsCompressor,
createDynamicsCompressor_, createDynamicsCompressorUnchecked,
createAnalyser, createAnalyser_, createAnalyserUnchecked,
createScriptProcessor, createScriptProcessor_,
createScriptProcessorUnchecked, createOscillator,
createOscillator_, createOscillatorUnchecked, createPeriodicWave,
createPeriodicWave_, createPeriodicWaveUnchecked,
createChannelSplitter, createChannelSplitter_,
createChannelSplitterUnchecked, createChannelMerger,
createChannelMerger_, createChannelMergerUnchecked, startRendering,
createGainNode, createGainNode_, createGainNodeUnchecked,
createDelayNode, createDelayNode_, createDelayNodeUnchecked,
createJavaScriptNode, createJavaScriptNode_,
createJavaScriptNodeUnchecked, getDestination,
getDestinationUnchecked, getCurrentTime, getSampleRate,
getListener, getListenerUnchecked, getActiveSourceCount, complete,
AudioContext, castToAudioContext, gTypeAudioContext,
IsAudioContext, toAudioContext)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
newAudioContext :: (MonadDOM m) => m AudioContext
newAudioContext
= liftDOM (AudioContext <$> new (jsg "AudioContext") ())
createBuffer ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Float -> m (Maybe AudioBuffer)
createBuffer self numberOfChannels numberOfFrames sampleRate
= liftDOM
(((toAudioContext self) ^. jsf "createBuffer"
[toJSVal numberOfChannels, toJSVal numberOfFrames,
toJSVal sampleRate])
>>= fromJSVal)
createBuffer_ ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Float -> m ()
createBuffer_ self numberOfChannels numberOfFrames sampleRate
= liftDOM
(void
((toAudioContext self) ^. jsf "createBuffer"
[toJSVal numberOfChannels, toJSVal numberOfFrames,
toJSVal sampleRate]))
createBufferUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Float -> m AudioBuffer
createBufferUnchecked self numberOfChannels numberOfFrames
sampleRate
= liftDOM
(((toAudioContext self) ^. jsf "createBuffer"
[toJSVal numberOfChannels, toJSVal numberOfFrames,
toJSVal sampleRate])
>>= fromJSValUnchecked)
createBufferFromArrayBuffer ::
(MonadDOM m, IsAudioContext self, IsArrayBuffer buffer) =>
self -> Maybe buffer -> Bool -> m (Maybe AudioBuffer)
createBufferFromArrayBuffer self buffer mixToMono
= liftDOM
(((toAudioContext self) ^. jsf "createBuffer"
[toJSVal buffer, toJSVal mixToMono])
>>= fromJSVal)
createBufferFromArrayBuffer_ ::
(MonadDOM m, IsAudioContext self, IsArrayBuffer buffer) =>
self -> Maybe buffer -> Bool -> m ()
createBufferFromArrayBuffer_ self buffer mixToMono
= liftDOM
(void
((toAudioContext self) ^. jsf "createBuffer"
[toJSVal buffer, toJSVal mixToMono]))
createBufferFromArrayBufferUnchecked ::
(MonadDOM m, IsAudioContext self, IsArrayBuffer buffer) =>
self -> Maybe buffer -> Bool -> m AudioBuffer
createBufferFromArrayBufferUnchecked self buffer mixToMono
= liftDOM
(((toAudioContext self) ^. jsf "createBuffer"
[toJSVal buffer, toJSVal mixToMono])
>>= fromJSValUnchecked)
decodeAudioData ::
(MonadDOM m, IsAudioContext self, IsArrayBuffer audioData) =>
self ->
Maybe audioData ->
Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m ()
decodeAudioData self audioData successCallback errorCallback
= liftDOM
(void
((toAudioContext self) ^. jsf "decodeAudioData"
[toJSVal audioData, toJSVal successCallback,
toJSVal errorCallback]))
createBufferSource ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe AudioBufferSourceNode)
createBufferSource self
= liftDOM
(((toAudioContext self) ^. jsf "createBufferSource" ()) >>=
fromJSVal)
createBufferSource_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createBufferSource_ self
= liftDOM
(void ((toAudioContext self) ^. jsf "createBufferSource" ()))
createBufferSourceUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> m AudioBufferSourceNode
createBufferSourceUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createBufferSource" ()) >>=
fromJSValUnchecked)
createMediaElementSource ::
(MonadDOM m, IsAudioContext self,
IsHTMLMediaElement mediaElement) =>
self -> Maybe mediaElement -> m (Maybe MediaElementAudioSourceNode)
createMediaElementSource self mediaElement
= liftDOM
(((toAudioContext self) ^. jsf "createMediaElementSource"
[toJSVal mediaElement])
>>= fromJSVal)
createMediaElementSource_ ::
(MonadDOM m, IsAudioContext self,
IsHTMLMediaElement mediaElement) =>
self -> Maybe mediaElement -> m ()
createMediaElementSource_ self mediaElement
= liftDOM
(void
((toAudioContext self) ^. jsf "createMediaElementSource"
[toJSVal mediaElement]))
createMediaElementSourceUnchecked ::
(MonadDOM m, IsAudioContext self,
IsHTMLMediaElement mediaElement) =>
self -> Maybe mediaElement -> m MediaElementAudioSourceNode
createMediaElementSourceUnchecked self mediaElement
= liftDOM
(((toAudioContext self) ^. jsf "createMediaElementSource"
[toJSVal mediaElement])
>>= fromJSValUnchecked)
createMediaStreamSource ::
(MonadDOM m, IsAudioContext self) =>
self -> Maybe MediaStream -> m (Maybe MediaStreamAudioSourceNode)
createMediaStreamSource self mediaStream
= liftDOM
(((toAudioContext self) ^. jsf "createMediaStreamSource"
[toJSVal mediaStream])
>>= fromJSVal)
createMediaStreamSource_ ::
(MonadDOM m, IsAudioContext self) =>
self -> Maybe MediaStream -> m ()
createMediaStreamSource_ self mediaStream
= liftDOM
(void
((toAudioContext self) ^. jsf "createMediaStreamSource"
[toJSVal mediaStream]))
createMediaStreamSourceUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> Maybe MediaStream -> m MediaStreamAudioSourceNode
createMediaStreamSourceUnchecked self mediaStream
= liftDOM
(((toAudioContext self) ^. jsf "createMediaStreamSource"
[toJSVal mediaStream])
>>= fromJSValUnchecked)
createMediaStreamDestination ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe MediaStreamAudioDestinationNode)
createMediaStreamDestination self
= liftDOM
(((toAudioContext self) ^. jsf "createMediaStreamDestination" ())
>>= fromJSVal)
createMediaStreamDestination_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createMediaStreamDestination_ self
= liftDOM
(void
((toAudioContext self) ^. jsf "createMediaStreamDestination" ()))
createMediaStreamDestinationUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> m MediaStreamAudioDestinationNode
createMediaStreamDestinationUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createMediaStreamDestination" ())
>>= fromJSValUnchecked)
createGain ::
(MonadDOM m, IsAudioContext self) => self -> m (Maybe GainNode)
createGain self
= liftDOM
(((toAudioContext self) ^. jsf "createGain" ()) >>= fromJSVal)
createGain_ :: (MonadDOM m, IsAudioContext self) => self -> m ()
createGain_ self
= liftDOM (void ((toAudioContext self) ^. jsf "createGain" ()))
createGainUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m GainNode
createGainUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createGain" ()) >>=
fromJSValUnchecked)
createDelay ::
(MonadDOM m, IsAudioContext self) =>
self -> Double -> m (Maybe DelayNode)
createDelay self maxDelayTime
= liftDOM
(((toAudioContext self) ^. jsf "createDelay"
[toJSVal maxDelayTime])
>>= fromJSVal)
createDelay_ ::
(MonadDOM m, IsAudioContext self) => self -> Double -> m ()
createDelay_ self maxDelayTime
= liftDOM
(void
((toAudioContext self) ^. jsf "createDelay"
[toJSVal maxDelayTime]))
createDelayUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> Double -> m DelayNode
createDelayUnchecked self maxDelayTime
= liftDOM
(((toAudioContext self) ^. jsf "createDelay"
[toJSVal maxDelayTime])
>>= fromJSValUnchecked)
createBiquadFilter ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe BiquadFilterNode)
createBiquadFilter self
= liftDOM
(((toAudioContext self) ^. jsf "createBiquadFilter" ()) >>=
fromJSVal)
createBiquadFilter_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createBiquadFilter_ self
= liftDOM
(void ((toAudioContext self) ^. jsf "createBiquadFilter" ()))
createBiquadFilterUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m BiquadFilterNode
createBiquadFilterUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createBiquadFilter" ()) >>=
fromJSValUnchecked)
createWaveShaper ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe WaveShaperNode)
createWaveShaper self
= liftDOM
(((toAudioContext self) ^. jsf "createWaveShaper" ()) >>=
fromJSVal)
createWaveShaper_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createWaveShaper_ self
= liftDOM
(void ((toAudioContext self) ^. jsf "createWaveShaper" ()))
createWaveShaperUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m WaveShaperNode
createWaveShaperUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createWaveShaper" ()) >>=
fromJSValUnchecked)
createPanner ::
(MonadDOM m, IsAudioContext self) => self -> m (Maybe PannerNode)
createPanner self
= liftDOM
(((toAudioContext self) ^. jsf "createPanner" ()) >>= fromJSVal)
createPanner_ :: (MonadDOM m, IsAudioContext self) => self -> m ()
createPanner_ self
= liftDOM (void ((toAudioContext self) ^. jsf "createPanner" ()))
createPannerUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m PannerNode
createPannerUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createPanner" ()) >>=
fromJSValUnchecked)
createConvolver ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe ConvolverNode)
createConvolver self
= liftDOM
(((toAudioContext self) ^. jsf "createConvolver" ()) >>= fromJSVal)
createConvolver_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createConvolver_ self
= liftDOM
(void ((toAudioContext self) ^. jsf "createConvolver" ()))
createConvolverUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m ConvolverNode
createConvolverUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createConvolver" ()) >>=
fromJSValUnchecked)
createDynamicsCompressor ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe DynamicsCompressorNode)
createDynamicsCompressor self
= liftDOM
(((toAudioContext self) ^. jsf "createDynamicsCompressor" ()) >>=
fromJSVal)
createDynamicsCompressor_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createDynamicsCompressor_ self
= liftDOM
(void ((toAudioContext self) ^. jsf "createDynamicsCompressor" ()))
createDynamicsCompressorUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> m DynamicsCompressorNode
createDynamicsCompressorUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createDynamicsCompressor" ()) >>=
fromJSValUnchecked)
createAnalyser ::
(MonadDOM m, IsAudioContext self) => self -> m (Maybe AnalyserNode)
createAnalyser self
= liftDOM
(((toAudioContext self) ^. jsf "createAnalyser" ()) >>= fromJSVal)
createAnalyser_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createAnalyser_ self
= liftDOM (void ((toAudioContext self) ^. jsf "createAnalyser" ()))
createAnalyserUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m AnalyserNode
createAnalyserUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createAnalyser" ()) >>=
fromJSValUnchecked)
createScriptProcessor ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)
createScriptProcessor self bufferSize numberOfInputChannels
numberOfOutputChannels
= liftDOM
(((toAudioContext self) ^. jsf "createScriptProcessor"
[toJSVal bufferSize, toJSVal numberOfInputChannels,
toJSVal numberOfOutputChannels])
>>= fromJSVal)
createScriptProcessor_ ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Word -> m ()
createScriptProcessor_ self bufferSize numberOfInputChannels
numberOfOutputChannels
= liftDOM
(void
((toAudioContext self) ^. jsf "createScriptProcessor"
[toJSVal bufferSize, toJSVal numberOfInputChannels,
toJSVal numberOfOutputChannels]))
createScriptProcessorUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Word -> m ScriptProcessorNode
createScriptProcessorUnchecked self bufferSize
numberOfInputChannels numberOfOutputChannels
= liftDOM
(((toAudioContext self) ^. jsf "createScriptProcessor"
[toJSVal bufferSize, toJSVal numberOfInputChannels,
toJSVal numberOfOutputChannels])
>>= fromJSValUnchecked)
createOscillator ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe OscillatorNode)
createOscillator self
= liftDOM
(((toAudioContext self) ^. jsf "createOscillator" ()) >>=
fromJSVal)
createOscillator_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createOscillator_ self
= liftDOM
(void ((toAudioContext self) ^. jsf "createOscillator" ()))
createOscillatorUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m OscillatorNode
createOscillatorUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createOscillator" ()) >>=
fromJSValUnchecked)
createPeriodicWave ::
(MonadDOM m, IsAudioContext self, IsFloat32Array real,
IsFloat32Array imag) =>
self -> Maybe real -> Maybe imag -> m (Maybe PeriodicWave)
createPeriodicWave self real imag
= liftDOM
(((toAudioContext self) ^. jsf "createPeriodicWave"
[toJSVal real, toJSVal imag])
>>= fromJSVal)
createPeriodicWave_ ::
(MonadDOM m, IsAudioContext self, IsFloat32Array real,
IsFloat32Array imag) =>
self -> Maybe real -> Maybe imag -> m ()
createPeriodicWave_ self real imag
= liftDOM
(void
((toAudioContext self) ^. jsf "createPeriodicWave"
[toJSVal real, toJSVal imag]))
createPeriodicWaveUnchecked ::
(MonadDOM m, IsAudioContext self, IsFloat32Array real,
IsFloat32Array imag) =>
self -> Maybe real -> Maybe imag -> m PeriodicWave
createPeriodicWaveUnchecked self real imag
= liftDOM
(((toAudioContext self) ^. jsf "createPeriodicWave"
[toJSVal real, toJSVal imag])
>>= fromJSValUnchecked)
createChannelSplitter ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> m (Maybe ChannelSplitterNode)
createChannelSplitter self numberOfOutputs
= liftDOM
(((toAudioContext self) ^. jsf "createChannelSplitter"
[toJSVal numberOfOutputs])
>>= fromJSVal)
createChannelSplitter_ ::
(MonadDOM m, IsAudioContext self) => self -> Word -> m ()
createChannelSplitter_ self numberOfOutputs
= liftDOM
(void
((toAudioContext self) ^. jsf "createChannelSplitter"
[toJSVal numberOfOutputs]))
createChannelSplitterUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> m ChannelSplitterNode
createChannelSplitterUnchecked self numberOfOutputs
= liftDOM
(((toAudioContext self) ^. jsf "createChannelSplitter"
[toJSVal numberOfOutputs])
>>= fromJSValUnchecked)
createChannelMerger ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> m (Maybe ChannelMergerNode)
createChannelMerger self numberOfInputs
= liftDOM
(((toAudioContext self) ^. jsf "createChannelMerger"
[toJSVal numberOfInputs])
>>= fromJSVal)
createChannelMerger_ ::
(MonadDOM m, IsAudioContext self) => self -> Word -> m ()
createChannelMerger_ self numberOfInputs
= liftDOM
(void
((toAudioContext self) ^. jsf "createChannelMerger"
[toJSVal numberOfInputs]))
createChannelMergerUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> m ChannelMergerNode
createChannelMergerUnchecked self numberOfInputs
= liftDOM
(((toAudioContext self) ^. jsf "createChannelMerger"
[toJSVal numberOfInputs])
>>= fromJSValUnchecked)
startRendering :: (MonadDOM m, IsAudioContext self) => self -> m ()
startRendering self
= liftDOM (void ((toAudioContext self) ^. jsf "startRendering" ()))
createGainNode ::
(MonadDOM m, IsAudioContext self) => self -> m (Maybe GainNode)
createGainNode self
= liftDOM
(((toAudioContext self) ^. jsf "createGainNode" ()) >>= fromJSVal)
createGainNode_ ::
(MonadDOM m, IsAudioContext self) => self -> m ()
createGainNode_ self
= liftDOM (void ((toAudioContext self) ^. jsf "createGainNode" ()))
createGainNodeUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m GainNode
createGainNodeUnchecked self
= liftDOM
(((toAudioContext self) ^. jsf "createGainNode" ()) >>=
fromJSValUnchecked)
createDelayNode ::
(MonadDOM m, IsAudioContext self) =>
self -> Double -> m (Maybe DelayNode)
createDelayNode self maxDelayTime
= liftDOM
(((toAudioContext self) ^. jsf "createDelayNode"
[toJSVal maxDelayTime])
>>= fromJSVal)
createDelayNode_ ::
(MonadDOM m, IsAudioContext self) => self -> Double -> m ()
createDelayNode_ self maxDelayTime
= liftDOM
(void
((toAudioContext self) ^. jsf "createDelayNode"
[toJSVal maxDelayTime]))
createDelayNodeUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> Double -> m DelayNode
createDelayNodeUnchecked self maxDelayTime
= liftDOM
(((toAudioContext self) ^. jsf "createDelayNode"
[toJSVal maxDelayTime])
>>= fromJSValUnchecked)
createJavaScriptNode ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)
createJavaScriptNode self bufferSize numberOfInputChannels
numberOfOutputChannels
= liftDOM
(((toAudioContext self) ^. jsf "createJavaScriptNode"
[toJSVal bufferSize, toJSVal numberOfInputChannels,
toJSVal numberOfOutputChannels])
>>= fromJSVal)
createJavaScriptNode_ ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Word -> m ()
createJavaScriptNode_ self bufferSize numberOfInputChannels
numberOfOutputChannels
= liftDOM
(void
((toAudioContext self) ^. jsf "createJavaScriptNode"
[toJSVal bufferSize, toJSVal numberOfInputChannels,
toJSVal numberOfOutputChannels]))
createJavaScriptNodeUnchecked ::
(MonadDOM m, IsAudioContext self) =>
self -> Word -> Word -> Word -> m ScriptProcessorNode
createJavaScriptNodeUnchecked self bufferSize numberOfInputChannels
numberOfOutputChannels
= liftDOM
(((toAudioContext self) ^. jsf "createJavaScriptNode"
[toJSVal bufferSize, toJSVal numberOfInputChannels,
toJSVal numberOfOutputChannels])
>>= fromJSValUnchecked)
getDestination ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe AudioDestinationNode)
getDestination self
= liftDOM
(((toAudioContext self) ^. js "destination") >>= fromJSVal)
getDestinationUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m AudioDestinationNode
getDestinationUnchecked self
= liftDOM
(((toAudioContext self) ^. js "destination") >>=
fromJSValUnchecked)
getCurrentTime ::
(MonadDOM m, IsAudioContext self) => self -> m Double
getCurrentTime self
= liftDOM
(((toAudioContext self) ^. js "currentTime") >>= valToNumber)
getSampleRate ::
(MonadDOM m, IsAudioContext self) => self -> m Float
getSampleRate self
= liftDOM
(realToFrac <$>
(((toAudioContext self) ^. js "sampleRate") >>= valToNumber))
getListener ::
(MonadDOM m, IsAudioContext self) =>
self -> m (Maybe AudioListener)
getListener self
= liftDOM (((toAudioContext self) ^. js "listener") >>= fromJSVal)
getListenerUnchecked ::
(MonadDOM m, IsAudioContext self) => self -> m AudioListener
getListenerUnchecked self
= liftDOM
(((toAudioContext self) ^. js "listener") >>= fromJSValUnchecked)
getActiveSourceCount ::
(MonadDOM m, IsAudioContext self) => self -> m Word
getActiveSourceCount self
= liftDOM
(round <$>
(((toAudioContext self) ^. js "activeSourceCount") >>=
valToNumber))
complete ::
(IsAudioContext self, IsEventTarget self) =>
EventName self OfflineAudioCompletionEvent
complete = unsafeEventName (toJSString "complete")