RTCOfferOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webrtc (webref). Do not edit.
module JSDOM.Generated.RTCOfferOptions
       (newRTCOfferOptions, setIceRestart, getIceRestart, getIceRestartUnsafe, getIceRestartUnchecked, setOfferToReceiveAudio, getOfferToReceiveAudio, getOfferToReceiveAudioUnsafe, getOfferToReceiveAudioUnchecked, setOfferToReceiveVideo, getOfferToReceiveVideo, getOfferToReceiveVideoUnsafe, getOfferToReceiveVideoUnchecked, RTCOfferOptions(..), gTypeRTCOfferOptions)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions RTCOfferOptions specification>
newRTCOfferOptions :: (MonadDOM m) => m RTCOfferOptions
newRTCOfferOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-icerestart RTCOfferOptions.iceRestart specification>
setIceRestart :: (MonadDOM m) => RTCOfferOptions -> Bool -> m ()
setIceRestart self val = liftDOM (void (self ^. jss "iceRestart" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-icerestart RTCOfferOptions.iceRestart specification>
getIceRestart :: (MonadDOM m) => RTCOfferOptions -> m (Maybe Bool)
getIceRestart self = liftDOM (((self ^. js "iceRestart") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-icerestart RTCOfferOptions.iceRestart specification>
getIceRestartUnsafe :: (MonadDOM m, HasCallStack) => RTCOfferOptions -> m Bool
getIceRestartUnsafe self = liftDOM ((((self ^. js "iceRestart") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-icerestart RTCOfferOptions.iceRestart specification>
getIceRestartUnchecked :: (MonadDOM m) => RTCOfferOptions -> m Bool
getIceRestartUnchecked self = liftDOM (((self ^. js "iceRestart") >>= valToBool))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-offertoreceiveaudio RTCOfferOptions.offerToReceiveAudio specification>
setOfferToReceiveAudio :: (MonadDOM m) => RTCOfferOptions -> Bool -> m ()
setOfferToReceiveAudio self val = liftDOM (void (self ^. jss "offerToReceiveAudio" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-offertoreceiveaudio RTCOfferOptions.offerToReceiveAudio specification>
getOfferToReceiveAudio :: (MonadDOM m) => RTCOfferOptions -> m (Maybe Bool)
getOfferToReceiveAudio self = liftDOM (((self ^. js "offerToReceiveAudio") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-offertoreceiveaudio RTCOfferOptions.offerToReceiveAudio specification>
getOfferToReceiveAudioUnsafe :: (MonadDOM m, HasCallStack) => RTCOfferOptions -> m Bool
getOfferToReceiveAudioUnsafe self = liftDOM ((((self ^. js "offerToReceiveAudio") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-offertoreceiveaudio RTCOfferOptions.offerToReceiveAudio specification>
getOfferToReceiveAudioUnchecked :: (MonadDOM m) => RTCOfferOptions -> m Bool
getOfferToReceiveAudioUnchecked self = liftDOM (((self ^. js "offerToReceiveAudio") >>= valToBool))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-offertoreceivevideo RTCOfferOptions.offerToReceiveVideo specification>
setOfferToReceiveVideo :: (MonadDOM m) => RTCOfferOptions -> Bool -> m ()
setOfferToReceiveVideo self val = liftDOM (void (self ^. jss "offerToReceiveVideo" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-offertoreceivevideo RTCOfferOptions.offerToReceiveVideo specification>
getOfferToReceiveVideo :: (MonadDOM m) => RTCOfferOptions -> m (Maybe Bool)
getOfferToReceiveVideo self = liftDOM (((self ^. js "offerToReceiveVideo") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-offertoreceivevideo RTCOfferOptions.offerToReceiveVideo specification>
getOfferToReceiveVideoUnsafe :: (MonadDOM m, HasCallStack) => RTCOfferOptions -> m Bool
getOfferToReceiveVideoUnsafe self = liftDOM ((((self ^. js "offerToReceiveVideo") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcofferoptions-offertoreceivevideo RTCOfferOptions.offerToReceiveVideo specification>
getOfferToReceiveVideoUnchecked :: (MonadDOM m) => RTCOfferOptions -> m Bool
getOfferToReceiveVideoUnchecked self = liftDOM (((self ^. js "offerToReceiveVideo") >>= valToBool))