RTCIceTransport.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.RTCIceTransport
       (getSelectedCandidatePair, getSelectedCandidatePair_, getSelectedCandidatePairUnsafe, getSelectedCandidatePairUnchecked, getRole, getState, getGatheringState, statechange, gatheringstatechange, selectedcandidatepairchange, icecandidateerror, RTCIceTransport(..), gTypeRTCIceTransport)
       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://developer.mozilla.org/docs/Web/API/RTCIceTransport/getSelectedCandidatePair MDN RTCIceTransport.getSelectedCandidatePair documentation>
getSelectedCandidatePair :: (MonadDOM m) => RTCIceTransport -> m (Maybe RTCIceCandidatePair)
getSelectedCandidatePair self = liftDOM (((self ^. jsf "getSelectedCandidatePair" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/RTCIceTransport/getSelectedCandidatePair MDN RTCIceTransport.getSelectedCandidatePair documentation>
getSelectedCandidatePair_ :: (MonadDOM m) => RTCIceTransport -> m ()
getSelectedCandidatePair_ self = liftDOM (void (self ^. jsf "getSelectedCandidatePair" ()))

-- | <https://developer.mozilla.org/docs/Web/API/RTCIceTransport/getSelectedCandidatePair MDN RTCIceTransport.getSelectedCandidatePair documentation>
getSelectedCandidatePairUnsafe :: (MonadDOM m, HasCallStack) => RTCIceTransport -> m RTCIceCandidatePair
getSelectedCandidatePairUnsafe self = liftDOM ((((self ^. jsf "getSelectedCandidatePair" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/RTCIceTransport/getSelectedCandidatePair MDN RTCIceTransport.getSelectedCandidatePair documentation>
getSelectedCandidatePairUnchecked :: (MonadDOM m) => RTCIceTransport -> m RTCIceCandidatePair
getSelectedCandidatePairUnchecked self = liftDOM (((self ^. jsf "getSelectedCandidatePair" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/RTCIceTransport/role MDN RTCIceTransport.role documentation>
getRole :: (MonadDOM m) => RTCIceTransport -> m RTCIceRole
getRole self = liftDOM (((self ^. js "role") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/RTCIceTransport/state MDN RTCIceTransport.state documentation>
getState :: (MonadDOM m) => RTCIceTransport -> m RTCIceTransportState
getState self = liftDOM (((self ^. js "state") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/RTCIceTransport/gatheringState MDN RTCIceTransport.gatheringState documentation>
getGatheringState :: (MonadDOM m) => RTCIceTransport -> m RTCIceGathererState
getGatheringState self = liftDOM (((self ^. js "gatheringState") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicetransport-onstatechange statechange event>
statechange :: EventName RTCIceTransport Event
statechange = unsafeEventName (toJSString "statechange")

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicetransport-ongatheringstatechange gatheringstatechange event>
gatheringstatechange :: EventName RTCIceTransport Event
gatheringstatechange = unsafeEventName (toJSString "gatheringstatechange")

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcicetransport-onselectedcandidatepairchange selectedcandidatepairchange event>
selectedcandidatepairchange :: EventName RTCIceTransport Event
selectedcandidatepairchange = unsafeEventName (toJSString "selectedcandidatepairchange")

-- | <https://w3c.github.io/webrtc-ice/#dfn-icecandidateerror icecandidateerror event>
icecandidateerror :: EventName RTCIceTransport RTCPeerConnectionIceErrorEvent
icecandidateerror = unsafeEventName (toJSString "icecandidateerror")