{-# 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 :: forall (m :: * -> *) data'.
(MonadDOM m, IsArrayBuffer data') =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"send" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
sendView ::
(MonadDOM m, IsArrayBufferView data') =>
RTCDataChannel -> data' -> m ()
sendView :: forall (m :: * -> *) data'.
(MonadDOM m, IsArrayBufferView data') =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"send" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
sendBlob ::
(MonadDOM m, IsBlob data') => RTCDataChannel -> data' -> m ()
sendBlob :: forall (m :: * -> *) data'.
(MonadDOM m, IsBlob data') =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"send" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
sendString ::
(MonadDOM m, ToJSString data') => RTCDataChannel -> data' -> m ()
sendString :: forall (m :: * -> *) data'.
(MonadDOM m, ToJSString data') =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"send" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
close :: (MonadDOM m) => RTCDataChannel -> m ()
close :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"close" ()))
getLabel ::
(MonadDOM m, FromJSString result) => RTCDataChannel -> m result
getLabel :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"label") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *). MonadDOM m => 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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"ordered") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"maxPacketLifeTime") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"maxPacketLifeTime") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 a b. JSM a -> (a -> JSM b) -> JSM b
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 (String -> DOM Word
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") Word -> DOM Word
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getMaxPacketLifeTimeUnchecked ::
(MonadDOM m) => RTCDataChannel -> m Word
getMaxPacketLifeTimeUnchecked :: forall (m :: * -> *). MonadDOM m => 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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"maxPacketLifeTime") JSM JSVal -> (JSVal -> DOM Word) -> DOM Word
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"maxRetransmits") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"maxRetransmits") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 a b. JSM a -> (a -> JSM b) -> JSM b
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 (String -> DOM Word
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") Word -> DOM Word
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getMaxRetransmitsUnchecked ::
(MonadDOM m) => RTCDataChannel -> m Word
getMaxRetransmitsUnchecked :: forall (m :: * -> *). MonadDOM m => 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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"maxRetransmits") JSM JSVal -> (JSVal -> DOM Word) -> DOM Word
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"protocol") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *). MonadDOM m => 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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"negotiated") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"id") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"id") JSM JSVal -> (JSVal -> DOM (Maybe Word)) -> DOM (Maybe Word)
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 a b. JSM a -> (a -> JSM b) -> JSM b
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 (String -> DOM Word
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") Word -> DOM Word
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getIdUnchecked :: (MonadDOM m) => RTCDataChannel -> m Word
getIdUnchecked :: forall (m :: * -> *). MonadDOM m => 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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"id") JSM JSVal -> (JSVal -> DOM Word) -> DOM Word
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"readyState") JSM JSVal
-> (JSVal -> DOM RTCDataChannelState) -> DOM RTCDataChannelState
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *). MonadDOM m => RTCDataChannel -> m Word
getBufferedAmount RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"bufferedAmount") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *). MonadDOM m => 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
^. String
-> 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 String
"bufferedAmountLowThreshold" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getBufferedAmountLowThreshold ::
(MonadDOM m) => RTCDataChannel -> m Word
getBufferedAmountLowThreshold :: forall (m :: * -> *). MonadDOM m => RTCDataChannel -> m Word
getBufferedAmountLowThreshold RTCDataChannel
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"bufferedAmountLowThreshold") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 :: forall (m :: * -> *) data'.
(MonadDOM m, ToJSString data') =>
RTCDataChannel -> data' -> 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
^. String
-> 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 String
"binaryType" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getBinaryType ::
(MonadDOM m, FromJSString result) => RTCDataChannel -> m result
getBinaryType :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> IndexPreservingGetter RTCDataChannel (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"binaryType") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
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 (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"open")
error :: EventName RTCDataChannel UIEvent
error :: EventName RTCDataChannel UIEvent
error = DOMString -> EventName RTCDataChannel UIEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"error")
closeEvent :: EventName RTCDataChannel CloseEvent
closeEvent :: EventName RTCDataChannel CloseEvent
closeEvent = DOMString -> EventName RTCDataChannel CloseEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"close")
message :: EventName RTCDataChannel MessageEvent
message :: EventName RTCDataChannel MessageEvent
message = DOMString -> EventName RTCDataChannel MessageEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"message")
bufferedamountlow :: EventName RTCDataChannel onbufferedamountlow
bufferedamountlow :: forall onbufferedamountlow.
EventName RTCDataChannel onbufferedamountlow
bufferedamountlow
= DOMString -> EventName RTCDataChannel onbufferedamountlow
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"bufferedamountlow")