ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.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.RTCConfiguration
       (js_newRTCConfiguration, js_setIceServers, js_getIceServers, js_setIceTransportPolicy, js_getIceTransportPolicy, js_setBundlePolicy, js_getBundlePolicy, js_setRtcpMuxPolicy, js_getRtcpMuxPolicy, js_setCertificates, js_getCertificates, js_setIceCandidatePoolSize, js_getIceCandidatePoolSize, js_setPeerIdentity, js_getPeerIdentity, newRTCConfiguration, setIceServers, getIceServers, getIceServersUnsafe, getIceServersUnchecked, setIceTransportPolicy, getIceTransportPolicy, getIceTransportPolicyUnsafe, getIceTransportPolicyUnchecked, setBundlePolicy, getBundlePolicy, getBundlePolicyUnsafe, getBundlePolicyUnchecked, setRtcpMuxPolicy, getRtcpMuxPolicy, getRtcpMuxPolicyUnsafe, getRtcpMuxPolicyUnchecked, setCertificates, getCertificates, getCertificatesUnsafe, getCertificatesUnchecked, setIceCandidatePoolSize, getIceCandidatePoolSize, getIceCandidatePoolSizeUnsafe, getIceCandidatePoolSizeUnchecked, setPeerIdentity, getPeerIdentity, getPeerIdentityUnsafe, getPeerIdentityUnchecked, RTCConfiguration(..), gTypeRTCConfiguration)
       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 "(() => { return ({}); })"
        js_newRTCConfiguration :: IO RTCConfiguration
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration RTCConfiguration specification>
newRTCConfiguration :: (MonadDOM m) => m RTCConfiguration
newRTCConfiguration = liftDOM ((js_newRTCConfiguration))

foreign import javascript safe "(($1, $2) => { $1[\"iceServers\"] = $2; })"
        js_setIceServers :: RTCConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-iceservers RTCConfiguration.iceServers specification>
setIceServers :: (MonadDOM m) => RTCConfiguration -> [RTCIceServer] -> m ()
setIceServers self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setIceServers (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"iceServers\"]; })"
        js_getIceServers :: RTCConfiguration -> IO JSVal
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-iceservers RTCConfiguration.iceServers specification>
getIceServers :: (MonadDOM m) => RTCConfiguration -> m (Maybe [RTCIceServer])
getIceServers self = liftDOM (((js_getIceServers (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-iceservers RTCConfiguration.iceServers specification>
getIceServersUnsafe :: (MonadDOM m, HasCallStack) => RTCConfiguration -> m [RTCIceServer]
getIceServersUnsafe self = liftDOM ((((js_getIceServers (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-iceservers RTCConfiguration.iceServers specification>
getIceServersUnchecked :: (MonadDOM m) => RTCConfiguration -> m [RTCIceServer]
getIceServersUnchecked self = liftDOM (((js_getIceServers (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"iceTransportPolicy\"] = $2; })"
        js_setIceTransportPolicy :: RTCConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-icetransportpolicy RTCConfiguration.iceTransportPolicy specification>
setIceTransportPolicy :: (MonadDOM m) => RTCConfiguration -> RTCIceTransportPolicy -> m ()
setIceTransportPolicy self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setIceTransportPolicy (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"iceTransportPolicy\"]; })"
        js_getIceTransportPolicy :: RTCConfiguration -> IO JSVal
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-icetransportpolicy RTCConfiguration.iceTransportPolicy specification>
getIceTransportPolicy :: (MonadDOM m) => RTCConfiguration -> m (Maybe RTCIceTransportPolicy)
getIceTransportPolicy self = liftDOM (((js_getIceTransportPolicy (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-icetransportpolicy RTCConfiguration.iceTransportPolicy specification>
getIceTransportPolicyUnsafe :: (MonadDOM m, HasCallStack) => RTCConfiguration -> m RTCIceTransportPolicy
getIceTransportPolicyUnsafe self = liftDOM ((((js_getIceTransportPolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-icetransportpolicy RTCConfiguration.iceTransportPolicy specification>
getIceTransportPolicyUnchecked :: (MonadDOM m) => RTCConfiguration -> m RTCIceTransportPolicy
getIceTransportPolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getIceTransportPolicy (self))))

foreign import javascript safe "(($1, $2) => { $1[\"bundlePolicy\"] = $2; })"
        js_setBundlePolicy :: RTCConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-bundlepolicy RTCConfiguration.bundlePolicy specification>
setBundlePolicy :: (MonadDOM m) => RTCConfiguration -> RTCBundlePolicy -> m ()
setBundlePolicy self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBundlePolicy (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"bundlePolicy\"]; })"
        js_getBundlePolicy :: RTCConfiguration -> IO JSVal
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-bundlepolicy RTCConfiguration.bundlePolicy specification>
getBundlePolicy :: (MonadDOM m) => RTCConfiguration -> m (Maybe RTCBundlePolicy)
getBundlePolicy self = liftDOM (((js_getBundlePolicy (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-bundlepolicy RTCConfiguration.bundlePolicy specification>
getBundlePolicyUnsafe :: (MonadDOM m, HasCallStack) => RTCConfiguration -> m RTCBundlePolicy
getBundlePolicyUnsafe self = liftDOM ((((js_getBundlePolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-bundlepolicy RTCConfiguration.bundlePolicy specification>
getBundlePolicyUnchecked :: (MonadDOM m) => RTCConfiguration -> m RTCBundlePolicy
getBundlePolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getBundlePolicy (self))))

foreign import javascript safe "(($1, $2) => { $1[\"rtcpMuxPolicy\"] = $2; })"
        js_setRtcpMuxPolicy :: RTCConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-rtcpmuxpolicy RTCConfiguration.rtcpMuxPolicy specification>
setRtcpMuxPolicy :: (MonadDOM m) => RTCConfiguration -> RTCRtcpMuxPolicy -> m ()
setRtcpMuxPolicy self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setRtcpMuxPolicy (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"rtcpMuxPolicy\"]; })"
        js_getRtcpMuxPolicy :: RTCConfiguration -> IO JSVal
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-rtcpmuxpolicy RTCConfiguration.rtcpMuxPolicy specification>
getRtcpMuxPolicy :: (MonadDOM m) => RTCConfiguration -> m (Maybe RTCRtcpMuxPolicy)
getRtcpMuxPolicy self = liftDOM (((js_getRtcpMuxPolicy (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-rtcpmuxpolicy RTCConfiguration.rtcpMuxPolicy specification>
getRtcpMuxPolicyUnsafe :: (MonadDOM m, HasCallStack) => RTCConfiguration -> m RTCRtcpMuxPolicy
getRtcpMuxPolicyUnsafe self = liftDOM ((((js_getRtcpMuxPolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-rtcpmuxpolicy RTCConfiguration.rtcpMuxPolicy specification>
getRtcpMuxPolicyUnchecked :: (MonadDOM m) => RTCConfiguration -> m RTCRtcpMuxPolicy
getRtcpMuxPolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getRtcpMuxPolicy (self))))

foreign import javascript safe "(($1, $2) => { $1[\"certificates\"] = $2; })"
        js_setCertificates :: RTCConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-certificates RTCConfiguration.certificates specification>
setCertificates :: (MonadDOM m) => RTCConfiguration -> [RTCCertificate] -> m ()
setCertificates self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCertificates (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"certificates\"]; })"
        js_getCertificates :: RTCConfiguration -> IO JSVal
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-certificates RTCConfiguration.certificates specification>
getCertificates :: (MonadDOM m) => RTCConfiguration -> m (Maybe [RTCCertificate])
getCertificates self = liftDOM (((js_getCertificates (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-certificates RTCConfiguration.certificates specification>
getCertificatesUnsafe :: (MonadDOM m, HasCallStack) => RTCConfiguration -> m [RTCCertificate]
getCertificatesUnsafe self = liftDOM ((((js_getCertificates (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-certificates RTCConfiguration.certificates specification>
getCertificatesUnchecked :: (MonadDOM m) => RTCConfiguration -> m [RTCCertificate]
getCertificatesUnchecked self = liftDOM (((js_getCertificates (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"iceCandidatePoolSize\"] = $2; })"
        js_setIceCandidatePoolSize :: RTCConfiguration -> Word -> IO ()
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-icecandidatepoolsize RTCConfiguration.iceCandidatePoolSize specification>
setIceCandidatePoolSize :: (MonadDOM m) => RTCConfiguration -> Word -> m ()
setIceCandidatePoolSize self val = liftDOM (void ((js_setIceCandidatePoolSize (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"iceCandidatePoolSize\"]; })"
        js_getIceCandidatePoolSize :: RTCConfiguration -> IO JSVal
-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-icecandidatepoolsize RTCConfiguration.iceCandidatePoolSize specification>
getIceCandidatePoolSize :: (MonadDOM m) => RTCConfiguration -> m (Maybe Word)
getIceCandidatePoolSize self = liftDOM (((js_getIceCandidatePoolSize (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-icecandidatepoolsize RTCConfiguration.iceCandidatePoolSize specification>
getIceCandidatePoolSizeUnsafe :: (MonadDOM m, HasCallStack) => RTCConfiguration -> m Word
getIceCandidatePoolSizeUnsafe self = liftDOM ((((js_getIceCandidatePoolSize (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcconfiguration-icecandidatepoolsize RTCConfiguration.iceCandidatePoolSize specification>
getIceCandidatePoolSizeUnchecked :: (MonadDOM m) => RTCConfiguration -> m Word
getIceCandidatePoolSizeUnchecked self = liftDOM ((pFromJSVal <$> (js_getIceCandidatePoolSize (self))))

foreign import javascript safe "(($1, $2) => { $1[\"peerIdentity\"] = $2; })"
        js_setPeerIdentity :: RTCConfiguration -> JSString -> IO ()
-- | <https://w3c.github.io/webrtc-identity/#dom-rtcconfiguration-peeridentity RTCConfiguration.peerIdentity specification>
setPeerIdentity :: (MonadDOM m, ToJSString val) => RTCConfiguration -> val -> m ()
setPeerIdentity self val = liftDOM (void ((js_setPeerIdentity (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"peerIdentity\"]; })"
        js_getPeerIdentity :: RTCConfiguration -> IO JSVal
-- | <https://w3c.github.io/webrtc-identity/#dom-rtcconfiguration-peeridentity RTCConfiguration.peerIdentity specification>
getPeerIdentity :: (MonadDOM m, FromJSString result) => RTCConfiguration -> m (Maybe result)
getPeerIdentity self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPeerIdentity (self))))

-- | <https://w3c.github.io/webrtc-identity/#dom-rtcconfiguration-peeridentity RTCConfiguration.peerIdentity specification>
getPeerIdentityUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RTCConfiguration -> m result
getPeerIdentityUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPeerIdentity (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-identity/#dom-rtcconfiguration-peeridentity RTCConfiguration.peerIdentity specification>
getPeerIdentityUnchecked :: (MonadDOM m, FromJSString result) => RTCConfiguration -> m result
getPeerIdentityUnchecked self = liftDOM ((pFromJSVal <$> (js_getPeerIdentity (self))))