AudioConfiguration.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from media-capabilities (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.AudioConfiguration
       (js_newAudioConfiguration, js_setContentType, js_getContentType, js_setChannels, js_getChannels, js_setBitrate, js_getBitrate, js_setSamplerate, js_getSamplerate, js_setSpatialRendering, js_getSpatialRendering, newAudioConfiguration, setContentType, getContentType, setChannels, getChannels, getChannelsUnsafe, getChannelsUnchecked, setBitrate, getBitrate, getBitrateUnsafe, getBitrateUnchecked, setSamplerate, getSamplerate, getSamplerateUnsafe, getSamplerateUnchecked, setSpatialRendering, getSpatialRendering, getSpatialRenderingUnsafe, getSpatialRenderingUnchecked, AudioConfiguration(..), gTypeAudioConfiguration)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1) => { return ({\"contentType\": $1}); })"
        js_newAudioConfiguration :: JSString -> IO AudioConfiguration
-- | <https://w3c.github.io/media-capabilities/#dictdef-audioconfiguration AudioConfiguration specification>
newAudioConfiguration :: (MonadDOM m, ToJSString contentType) => contentType -> m AudioConfiguration
newAudioConfiguration contentType = liftDOM ((js_newAudioConfiguration (toJSString contentType)))

foreign import javascript safe "(($1, $2) => { $1[\"contentType\"] = $2; })"
        js_setContentType :: AudioConfiguration -> JSString -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-contenttype AudioConfiguration.contentType specification>
setContentType :: (MonadDOM m, ToJSString val) => AudioConfiguration -> val -> m ()
setContentType self val = liftDOM (void ((js_setContentType (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })"
        js_getContentType :: AudioConfiguration -> IO JSString
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-contenttype AudioConfiguration.contentType specification>
getContentType :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m result
getContentType self = liftDOM ((fromJSString <$> (js_getContentType (self))))

foreign import javascript safe "(($1, $2) => { $1[\"channels\"] = $2; })"
        js_setChannels :: AudioConfiguration -> JSString -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>
setChannels :: (MonadDOM m, ToJSString val) => AudioConfiguration -> val -> m ()
setChannels self val = liftDOM (void ((js_setChannels (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"channels\"]; })"
        js_getChannels :: AudioConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>
getChannels :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m (Maybe result)
getChannels self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getChannels (self))))

-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>
getChannelsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AudioConfiguration -> m result
getChannelsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getChannels (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>
getChannelsUnchecked :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m result
getChannelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannels (self))))

foreign import javascript safe "(($1, $2) => { $1[\"bitrate\"] = $2; })"
        js_setBitrate :: AudioConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>
setBitrate :: (MonadDOM m) => AudioConfiguration -> Word53 -> m ()
setBitrate self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBitrate (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"bitrate\"]; })"
        js_getBitrate :: AudioConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>
getBitrate :: (MonadDOM m) => AudioConfiguration -> m (Maybe Word53)
getBitrate self = liftDOM (((js_getBitrate (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>
getBitrateUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Word53
getBitrateUnsafe self = liftDOM ((((js_getBitrate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>
getBitrateUnchecked :: (MonadDOM m) => AudioConfiguration -> m Word53
getBitrateUnchecked self = liftDOM ((pFromJSVal <$> (js_getBitrate (self))))

foreign import javascript safe "(($1, $2) => { $1[\"samplerate\"] = $2; })"
        js_setSamplerate :: AudioConfiguration -> Word -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>
setSamplerate :: (MonadDOM m) => AudioConfiguration -> Word -> m ()
setSamplerate self val = liftDOM (void ((js_setSamplerate (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"samplerate\"]; })"
        js_getSamplerate :: AudioConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>
getSamplerate :: (MonadDOM m) => AudioConfiguration -> m (Maybe Word)
getSamplerate self = liftDOM (((js_getSamplerate (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>
getSamplerateUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Word
getSamplerateUnsafe self = liftDOM ((((js_getSamplerate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>
getSamplerateUnchecked :: (MonadDOM m) => AudioConfiguration -> m Word
getSamplerateUnchecked self = liftDOM ((pFromJSVal <$> (js_getSamplerate (self))))

foreign import javascript safe "(($1, $2) => { $1[\"spatialRendering\"] = $2; })"
        js_setSpatialRendering :: AudioConfiguration -> Bool -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>
setSpatialRendering :: (MonadDOM m) => AudioConfiguration -> Bool -> m ()
setSpatialRendering self val = liftDOM (void ((js_setSpatialRendering (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"spatialRendering\"]; })"
        js_getSpatialRendering :: AudioConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>
getSpatialRendering :: (MonadDOM m) => AudioConfiguration -> m (Maybe Bool)
getSpatialRendering self = liftDOM (((js_getSpatialRendering (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>
getSpatialRenderingUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Bool
getSpatialRenderingUnsafe self = liftDOM ((((js_getSpatialRendering (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>
getSpatialRenderingUnchecked :: (MonadDOM m) => AudioConfiguration -> m Bool
getSpatialRenderingUnchecked self = liftDOM ((pFromJSVal <$> (js_getSpatialRendering (self))))