RTCRtpParameters.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webrtc (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.RTCRtpParameters
       (js_newRTCRtpParameters, js_setHeaderExtensions, js_getHeaderExtensions, js_setRtcp, js_getRtcp, js_setCodecs, js_getCodecs, newRTCRtpParameters, setHeaderExtensions, getHeaderExtensions, setRtcp, getRtcp, setCodecs, getCodecs, RTCRtpParameters(..), gTypeRTCRtpParameters, IsRTCRtpParameters, toRTCRtpParameters)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2, $3) => { return ({\"headerExtensions\": $1, \"rtcp\": $2, \"codecs\": $3}); })"
        js_newRTCRtpParameters :: JSVal -> RTCRtcpParameters -> JSVal -> IO RTCRtpParameters
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcrtpparameters RTCRtpParameters specification>
newRTCRtpParameters :: (MonadDOM m) => [RTCRtpHeaderExtensionParameters] -> RTCRtcpParameters -> [RTCRtpCodecParameters] -> m RTCRtpParameters
newRTCRtpParameters headerExtensions rtcp codecs = liftDOM (((toJSVal headerExtensions) >>= \a1' -> (toJSVal codecs) >>= \a3' -> js_newRTCRtpParameters a1' (rtcp) a3'))

foreign import javascript safe "(($1, $2) => { $1[\"headerExtensions\"] = $2; })"
        js_setHeaderExtensions :: RTCRtpParameters -> JSVal -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcrtpparameters-headerextensions RTCRtpParameters.headerExtensions specification>
setHeaderExtensions :: (MonadDOM m, IsRTCRtpParameters self) => self -> [RTCRtpHeaderExtensionParameters] -> m ()
setHeaderExtensions self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setHeaderExtensions ((Types.toRTCRtpParameters self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"headerExtensions\"]; })"
        js_getHeaderExtensions :: RTCRtpParameters -> IO JSVal
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcrtpparameters-headerextensions RTCRtpParameters.headerExtensions specification>
getHeaderExtensions :: (MonadDOM m, IsRTCRtpParameters self) => self -> m [RTCRtpHeaderExtensionParameters]
getHeaderExtensions self = liftDOM (((js_getHeaderExtensions ((Types.toRTCRtpParameters self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"rtcp\"] = $2; })"
        js_setRtcp :: RTCRtpParameters -> RTCRtcpParameters -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcrtpparameters-rtcp RTCRtpParameters.rtcp specification>
setRtcp :: (MonadDOM m, IsRTCRtpParameters self) => self -> RTCRtcpParameters -> m ()
setRtcp self val = liftDOM (void ((js_setRtcp ((Types.toRTCRtpParameters self)) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"rtcp\"]; })"
        js_getRtcp :: RTCRtpParameters -> IO RTCRtcpParameters
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcrtpparameters-rtcp RTCRtpParameters.rtcp specification>
getRtcp :: (MonadDOM m, IsRTCRtpParameters self) => self -> m RTCRtcpParameters
getRtcp self = liftDOM ((js_getRtcp ((Types.toRTCRtpParameters self))))

foreign import javascript safe "(($1, $2) => { $1[\"codecs\"] = $2; })"
        js_setCodecs :: RTCRtpParameters -> JSVal -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcrtpparameters-codecs RTCRtpParameters.codecs specification>
setCodecs :: (MonadDOM m, IsRTCRtpParameters self) => self -> [RTCRtpCodecParameters] -> m ()
setCodecs self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCodecs ((Types.toRTCRtpParameters self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"codecs\"]; })"
        js_getCodecs :: RTCRtpParameters -> IO JSVal
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcrtpparameters-codecs RTCRtpParameters.codecs specification>
getCodecs :: (MonadDOM m, IsRTCRtpParameters self) => self -> m [RTCRtpCodecParameters]
getCodecs self = liftDOM (((js_getCodecs ((Types.toRTCRtpParameters self))) >>= fromJSValUnchecked))