RTCIceCandidateInit.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.RTCIceCandidateInit
       (newRTCIceCandidateInit, setCandidate, getCandidate, getCandidateUnsafe, getCandidateUnchecked, setSdpMid, getSdpMid, getSdpMidUnsafe, getSdpMidUnchecked, setSdpMLineIndex, getSdpMLineIndex, getSdpMLineIndexUnsafe, getSdpMLineIndexUnchecked, setUsernameFragment, getUsernameFragment, getUsernameFragmentUnsafe, getUsernameFragmentUnchecked, RTCIceCandidateInit(..), gTypeRTCIceCandidateInit, IsRTCIceCandidateInit, toRTCIceCandidateInit)
       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-rtcicecandidateinit RTCIceCandidateInit specification>
newRTCIceCandidateInit :: (MonadDOM m) => m RTCIceCandidateInit
newRTCIceCandidateInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-candidate RTCIceCandidateInit.candidate specification>
setCandidate :: (MonadDOM m, IsRTCIceCandidateInit self, ToJSString val) => self -> val -> m ()
setCandidate self val = liftDOM (void ((Types.toRTCIceCandidateInit self) ^. jss "candidate" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-candidate RTCIceCandidateInit.candidate specification>
getCandidate :: (MonadDOM m, IsRTCIceCandidateInit self, FromJSString result) => self -> m (Maybe result)
getCandidate self = liftDOM ((((Types.toRTCIceCandidateInit self) ^. js "candidate") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-candidate RTCIceCandidateInit.candidate specification>
getCandidateUnsafe :: (MonadDOM m, IsRTCIceCandidateInit self, HasCallStack, FromJSString result) => self -> m result
getCandidateUnsafe self = liftDOM (((((Types.toRTCIceCandidateInit self) ^. js "candidate") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-candidate RTCIceCandidateInit.candidate specification>
getCandidateUnchecked :: (MonadDOM m, IsRTCIceCandidateInit self, FromJSString result) => self -> m result
getCandidateUnchecked self = liftDOM ((((Types.toRTCIceCandidateInit self) ^. js "candidate") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-sdpmid RTCIceCandidateInit.sdpMid specification>
setSdpMid :: (MonadDOM m, IsRTCIceCandidateInit self, ToJSString val) => self -> Maybe val -> m ()
setSdpMid self val = liftDOM (void ((Types.toRTCIceCandidateInit self) ^. jss "sdpMid" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-sdpmid RTCIceCandidateInit.sdpMid specification>
getSdpMid :: (MonadDOM m, IsRTCIceCandidateInit self, FromJSString result) => self -> m (Maybe result)
getSdpMid self = liftDOM ((((Types.toRTCIceCandidateInit self) ^. js "sdpMid") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-sdpmid RTCIceCandidateInit.sdpMid specification>
getSdpMidUnsafe :: (MonadDOM m, IsRTCIceCandidateInit self, HasCallStack, FromJSString result) => self -> m result
getSdpMidUnsafe self = liftDOM (((((Types.toRTCIceCandidateInit self) ^. js "sdpMid") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-sdpmid RTCIceCandidateInit.sdpMid specification>
getSdpMidUnchecked :: (MonadDOM m, IsRTCIceCandidateInit self, FromJSString result) => self -> m result
getSdpMidUnchecked self = liftDOM ((((Types.toRTCIceCandidateInit self) ^. js "sdpMid") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-sdpmlineindex RTCIceCandidateInit.sdpMLineIndex specification>
setSdpMLineIndex :: (MonadDOM m, IsRTCIceCandidateInit self) => self -> Maybe Word -> m ()
setSdpMLineIndex self val = liftDOM (void ((Types.toRTCIceCandidateInit self) ^. jss "sdpMLineIndex" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-sdpmlineindex RTCIceCandidateInit.sdpMLineIndex specification>
getSdpMLineIndex :: (MonadDOM m, IsRTCIceCandidateInit self) => self -> m (Maybe Word)
getSdpMLineIndex self = liftDOM ((((Types.toRTCIceCandidateInit self) ^. js "sdpMLineIndex") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-sdpmlineindex RTCIceCandidateInit.sdpMLineIndex specification>
getSdpMLineIndexUnsafe :: (MonadDOM m, IsRTCIceCandidateInit self, HasCallStack) => self -> m Word
getSdpMLineIndexUnsafe self = liftDOM (((((Types.toRTCIceCandidateInit self) ^. js "sdpMLineIndex") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-sdpmlineindex RTCIceCandidateInit.sdpMLineIndex specification>
getSdpMLineIndexUnchecked :: (MonadDOM m, IsRTCIceCandidateInit self) => self -> m Word
getSdpMLineIndexUnchecked self = liftDOM ((P.round <$> (((Types.toRTCIceCandidateInit self) ^. js "sdpMLineIndex") >>= valToNumber)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-usernamefragment RTCIceCandidateInit.usernameFragment specification>
setUsernameFragment :: (MonadDOM m, IsRTCIceCandidateInit self, ToJSString val) => self -> Maybe val -> m ()
setUsernameFragment self val = liftDOM (void ((Types.toRTCIceCandidateInit self) ^. jss "usernameFragment" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-usernamefragment RTCIceCandidateInit.usernameFragment specification>
getUsernameFragment :: (MonadDOM m, IsRTCIceCandidateInit self, FromJSString result) => self -> m (Maybe result)
getUsernameFragment self = liftDOM ((((Types.toRTCIceCandidateInit self) ^. js "usernameFragment") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-usernamefragment RTCIceCandidateInit.usernameFragment specification>
getUsernameFragmentUnsafe :: (MonadDOM m, IsRTCIceCandidateInit self, HasCallStack, FromJSString result) => self -> m result
getUsernameFragmentUnsafe self = liftDOM (((((Types.toRTCIceCandidateInit self) ^. js "usernameFragment") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicecandidateinit-usernamefragment RTCIceCandidateInit.usernameFragment specification>
getUsernameFragmentUnchecked :: (MonadDOM m, IsRTCIceCandidateInit self, FromJSString result) => self -> m result
getUsernameFragmentUnchecked self = liftDOM ((((Types.toRTCIceCandidateInit self) ^. js "usernameFragment") >>= fromJSValUnchecked))