RTCIceServer.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.RTCIceServer
       (newRTCIceServer, setUrls, getUrls, setUsername, getUsername, getUsernameUnsafe, getUsernameUnchecked, setCredential, getCredential, getCredentialUnsafe, getCredentialUnchecked, RTCIceServer(..), gTypeRTCIceServer)
       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-rtciceserver RTCIceServer specification>
newRTCIceServer :: (MonadDOM m, IsStringOrSequenceString urls) => urls -> m RTCIceServer
newRTCIceServer urls = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "urls" (toJSVal urls)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-urls RTCIceServer.urls specification>
setUrls :: (MonadDOM m, IsStringOrSequenceString val) => RTCIceServer -> val -> m ()
setUrls self val = liftDOM (void (self ^. jss "urls" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-urls RTCIceServer.urls specification>
getUrls :: (MonadDOM m) => RTCIceServer -> m StringOrSequenceString
getUrls self = liftDOM (((self ^. js "urls") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-username RTCIceServer.username specification>
setUsername :: (MonadDOM m, ToJSString val) => RTCIceServer -> val -> m ()
setUsername self val = liftDOM (void (self ^. jss "username" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-username RTCIceServer.username specification>
getUsername :: (MonadDOM m, FromJSString result) => RTCIceServer -> m (Maybe result)
getUsername self = liftDOM (((self ^. js "username") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-username RTCIceServer.username specification>
getUsernameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RTCIceServer -> m result
getUsernameUnsafe self = liftDOM ((((self ^. js "username") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-username RTCIceServer.username specification>
getUsernameUnchecked :: (MonadDOM m, FromJSString result) => RTCIceServer -> m result
getUsernameUnchecked self = liftDOM (((self ^. js "username") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-credential RTCIceServer.credential specification>
setCredential :: (MonadDOM m, ToJSString val) => RTCIceServer -> val -> m ()
setCredential self val = liftDOM (void (self ^. jss "credential" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-credential RTCIceServer.credential specification>
getCredential :: (MonadDOM m, FromJSString result) => RTCIceServer -> m (Maybe result)
getCredential self = liftDOM (((self ^. js "credential") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-credential RTCIceServer.credential specification>
getCredentialUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RTCIceServer -> m result
getCredentialUnsafe self = liftDOM ((((self ^. js "credential") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtciceserver-credential RTCIceServer.credential specification>
getCredentialUnchecked :: (MonadDOM m, FromJSString result) => RTCIceServer -> m result
getCredentialUnchecked self = liftDOM (((self ^. js "credential") >>= fromJSValUnchecked))