RTCDtlsTransport.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.RTCDtlsTransport
       (getRemoteCertificates, getRemoteCertificates_, getIceTransport, getState, statechange, error, RTCDtlsTransport(..), gTypeRTCDtlsTransport)
       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/RTCDtlsTransport/getRemoteCertificates MDN RTCDtlsTransport.getRemoteCertificates documentation>
getRemoteCertificates :: (MonadDOM m) => RTCDtlsTransport -> m [ArrayBuffer]
getRemoteCertificates self = liftDOM (((self ^. jsf "getRemoteCertificates" ()) >>= fromJSValUnchecked))

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

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

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

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

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcdtlstransport-onerror error event>
error :: EventName RTCDtlsTransport RTCErrorEvent
error = unsafeEventNameAsync (toJSString "error")