{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.RTCDataChannel
(send, sendView, sendBlob, sendString, close, getLabel, getOrdered,
getMaxPacketLifeTime, getMaxPacketLifeTimeUnsafe,
getMaxPacketLifeTimeUnchecked, getMaxRetransmits,
getMaxRetransmitsUnsafe, getMaxRetransmitsUnchecked, getProtocol,
getNegotiated, getId, getIdUnsafe, getIdUnchecked, getReadyState,
getBufferedAmount, setBufferedAmountLowThreshold,
getBufferedAmountLowThreshold, setBinaryType, getBinaryType, open,
error, closeEvent, message, bufferedamountlow, RTCDataChannel(..),
gTypeRTCDataChannel)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
send ::
(MonadDOM m, IsArrayBuffer data') =>
RTCDataChannel -> data' -> m ()
send :: RTCDataChannel -> data' -> m ()
send RTCDataChannel
self data'
data'
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"send" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
sendView ::
(MonadDOM m, IsArrayBufferView data') =>
RTCDataChannel -> data' -> m ()
sendView :: RTCDataChannel -> data' -> m ()
sendView RTCDataChannel
self data'
data'
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"send" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
sendBlob ::
(MonadDOM m, IsBlob data') => RTCDataChannel -> data' -> m ()
sendBlob :: RTCDataChannel -> data' -> m ()
sendBlob RTCDataChannel
self data'
data'
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"send" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
sendString ::
(MonadDOM m, ToJSString data') => RTCDataChannel -> data' -> m ()
sendString :: RTCDataChannel -> data' -> m ()
sendString RTCDataChannel
self data'
data'
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"send" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
close :: (MonadDOM m) => RTCDataChannel -> m ()
close :: RTCDataChannel -> m ()
close RTCDataChannel
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"close" ()))
getLabel ::
(MonadDOM m, FromJSString result) => RTCDataChannel -> m result
getLabel :: RTCDataChannel -> m result
getLabel RTCDataChannel
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"label") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getOrdered :: (MonadDOM m) => RTCDataChannel -> m Bool
getOrdered :: RTCDataChannel -> m Bool
getOrdered RTCDataChannel
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"ordered") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getMaxPacketLifeTime ::
(MonadDOM m) => RTCDataChannel -> m (Maybe Word)
getMaxPacketLifeTime :: RTCDataChannel -> m (Maybe Word)
getMaxPacketLifeTime RTCDataChannel
self
= DOM (Maybe Word) -> m (Maybe Word)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"maxPacketLifeTime") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Word)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getMaxPacketLifeTimeUnsafe ::
(MonadDOM m, HasCallStack) => RTCDataChannel -> m Word
getMaxPacketLifeTimeUnsafe :: RTCDataChannel -> m Word
getMaxPacketLifeTimeUnsafe RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"maxPacketLifeTime") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Word)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Word) -> (Maybe Word -> DOM Word) -> DOM Word
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Word -> (Word -> DOM Word) -> Maybe Word -> DOM Word
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Word
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Word -> DOM Word
forall (m :: * -> *) a. Monad m => a -> m a
return)
getMaxPacketLifeTimeUnchecked ::
(MonadDOM m) => RTCDataChannel -> m Word
getMaxPacketLifeTimeUnchecked :: RTCDataChannel -> m Word
getMaxPacketLifeTimeUnchecked RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"maxPacketLifeTime") JSM JSVal -> (JSVal -> DOM Word) -> DOM Word
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Word
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getMaxRetransmits ::
(MonadDOM m) => RTCDataChannel -> m (Maybe Word)
getMaxRetransmits :: RTCDataChannel -> m (Maybe Word)
getMaxRetransmits RTCDataChannel
self
= DOM (Maybe Word) -> m (Maybe Word)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"maxRetransmits") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Word)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getMaxRetransmitsUnsafe ::
(MonadDOM m, HasCallStack) => RTCDataChannel -> m Word
getMaxRetransmitsUnsafe :: RTCDataChannel -> m Word
getMaxRetransmitsUnsafe RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"maxRetransmits") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Word)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Word) -> (Maybe Word -> DOM Word) -> DOM Word
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Word -> (Word -> DOM Word) -> Maybe Word -> DOM Word
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Word
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Word -> DOM Word
forall (m :: * -> *) a. Monad m => a -> m a
return)
getMaxRetransmitsUnchecked ::
(MonadDOM m) => RTCDataChannel -> m Word
getMaxRetransmitsUnchecked :: RTCDataChannel -> m Word
getMaxRetransmitsUnchecked RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"maxRetransmits") JSM JSVal -> (JSVal -> DOM Word) -> DOM Word
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Word
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getProtocol ::
(MonadDOM m, FromJSString result) => RTCDataChannel -> m result
getProtocol :: RTCDataChannel -> m result
getProtocol RTCDataChannel
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"protocol") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getNegotiated :: (MonadDOM m) => RTCDataChannel -> m Bool
getNegotiated :: RTCDataChannel -> m Bool
getNegotiated RTCDataChannel
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"negotiated") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getId :: (MonadDOM m) => RTCDataChannel -> m (Maybe Word)
getId :: RTCDataChannel -> m (Maybe Word)
getId RTCDataChannel
self = DOM (Maybe Word) -> m (Maybe Word)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"id") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Word)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getIdUnsafe ::
(MonadDOM m, HasCallStack) => RTCDataChannel -> m Word
getIdUnsafe :: RTCDataChannel -> m Word
getIdUnsafe RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"id") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Word)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Word) -> (Maybe Word -> DOM Word) -> DOM Word
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Word -> (Word -> DOM Word) -> Maybe Word -> DOM Word
forall b a. b -> (a -> b) -> Maybe a -> b
maybe ([Char] -> DOM Word
forall a. HasCallStack => [Char] -> a
Prelude.error [Char]
"Nothing to return") Word -> DOM Word
forall (m :: * -> *) a. Monad m => a -> m a
return)
getIdUnchecked :: (MonadDOM m) => RTCDataChannel -> m Word
getIdUnchecked :: RTCDataChannel -> m Word
getIdUnchecked RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"id") JSM JSVal -> (JSVal -> DOM Word) -> DOM Word
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Word
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getReadyState ::
(MonadDOM m) => RTCDataChannel -> m RTCDataChannelState
getReadyState :: RTCDataChannel -> m RTCDataChannelState
getReadyState RTCDataChannel
self
= DOM RTCDataChannelState -> m RTCDataChannelState
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"readyState") JSM JSVal
-> (JSVal -> DOM RTCDataChannelState) -> DOM RTCDataChannelState
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM RTCDataChannelState
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getBufferedAmount :: (MonadDOM m) => RTCDataChannel -> m Word
getBufferedAmount :: RTCDataChannel -> m Word
getBufferedAmount RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"bufferedAmount") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setBufferedAmountLowThreshold ::
(MonadDOM m) => RTCDataChannel -> Word -> m ()
setBufferedAmountLowThreshold :: RTCDataChannel -> Word -> m ()
setBufferedAmountLowThreshold RTCDataChannel
self Word
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (RTCDataChannel
self RTCDataChannel
-> Getting (DOM ()) RTCDataChannel (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"bufferedAmountLowThreshold" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getBufferedAmountLowThreshold ::
(MonadDOM m) => RTCDataChannel -> m Word
getBufferedAmountLowThreshold :: RTCDataChannel -> m Word
getBufferedAmountLowThreshold RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"bufferedAmountLowThreshold") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setBinaryType ::
(MonadDOM m, ToJSString val) => RTCDataChannel -> val -> m ()
setBinaryType :: RTCDataChannel -> val -> m ()
setBinaryType RTCDataChannel
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (RTCDataChannel
self RTCDataChannel
-> Getting (DOM ()) RTCDataChannel (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"binaryType" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBinaryType ::
(MonadDOM m, FromJSString result) => RTCDataChannel -> m result
getBinaryType :: RTCDataChannel -> m result
getBinaryType RTCDataChannel
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((RTCDataChannel
self RTCDataChannel
-> Getting (JSM JSVal) RTCDataChannel (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"binaryType") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
open :: EventName RTCDataChannel Event
open :: EventName RTCDataChannel Event
open = DOMString -> EventName RTCDataChannel Event
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"open")
error :: EventName RTCDataChannel UIEvent
error :: EventName RTCDataChannel UIEvent
error = DOMString -> EventName RTCDataChannel UIEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"error")
closeEvent :: EventName RTCDataChannel CloseEvent
closeEvent :: EventName RTCDataChannel CloseEvent
closeEvent = DOMString -> EventName RTCDataChannel CloseEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"close")
message :: EventName RTCDataChannel MessageEvent
message :: EventName RTCDataChannel MessageEvent
message = DOMString -> EventName RTCDataChannel MessageEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"message")
bufferedamountlow :: EventName RTCDataChannel onbufferedamountlow
bufferedamountlow :: EventName RTCDataChannel onbufferedamountlow
bufferedamountlow
= DOMString -> EventName RTCDataChannel onbufferedamountlow
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"bufferedamountlow")