{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.MediaStreamTrack
(clone, clone_, stop, getCapabilities, getCapabilities_,
getConstraints, getConstraints_, getSettings, getSettings_,
applyConstraints, getKind, getId, getLabel, setEnabled, getEnabled,
getMuted, mute, unmute, getReadyState, ended, overConstrained,
MediaStreamTrack(..), gTypeMediaStreamTrack, IsMediaStreamTrack,
toMediaStreamTrack)
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
clone ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m MediaStreamTrack
clone :: self -> m MediaStreamTrack
clone self
self
= DOM MediaStreamTrack -> m MediaStreamTrack
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"clone" ()) JSM JSVal
-> (JSVal -> DOM MediaStreamTrack) -> DOM MediaStreamTrack
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaStreamTrack
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
clone_ :: (MonadDOM m, IsMediaStreamTrack self) => self -> m ()
clone_ :: self -> m ()
clone_ self
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 ((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"clone" ()))
stop :: (MonadDOM m, IsMediaStreamTrack self) => self -> m ()
stop :: self -> m ()
stop self
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 ((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"stop" ()))
getCapabilities ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m MediaTrackCapabilities
getCapabilities :: self -> m MediaTrackCapabilities
getCapabilities self
self
= DOM MediaTrackCapabilities -> m MediaTrackCapabilities
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"getCapabilities" ()) JSM JSVal
-> (JSVal -> DOM MediaTrackCapabilities)
-> DOM MediaTrackCapabilities
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaTrackCapabilities
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getCapabilities_ ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m ()
getCapabilities_ :: self -> m ()
getCapabilities_ self
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 ((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"getCapabilities" ()))
getConstraints ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m MediaTrackConstraints
getConstraints :: self -> m MediaTrackConstraints
getConstraints self
self
= DOM MediaTrackConstraints -> m MediaTrackConstraints
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"getConstraints" ()) JSM JSVal
-> (JSVal -> DOM MediaTrackConstraints)
-> DOM MediaTrackConstraints
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaTrackConstraints
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getConstraints_ ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m ()
getConstraints_ :: self -> m ()
getConstraints_ self
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 ((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"getConstraints" ()))
getSettings ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m MediaTrackSettings
getSettings :: self -> m MediaTrackSettings
getSettings self
self
= DOM MediaTrackSettings -> m MediaTrackSettings
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"getSettings" ()) JSM JSVal
-> (JSVal -> DOM MediaTrackSettings) -> DOM MediaTrackSettings
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaTrackSettings
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSettings_ ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m ()
getSettings_ :: self -> m ()
getSettings_ self
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 ((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"getSettings" ()))
applyConstraints ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> Maybe MediaTrackConstraints -> m ()
applyConstraints :: self -> Maybe MediaTrackConstraints -> m ()
applyConstraints self
self Maybe MediaTrackConstraints
constraints
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (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]
"applyConstraints"
[Maybe MediaTrackConstraints -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe MediaTrackConstraints
constraints])
JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
readPromise))
getKind ::
(MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>
self -> m result
getKind :: self -> m result
getKind self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaStreamTrack (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"kind") 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)
getId ::
(MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>
self -> m result
getId :: self -> m result
getId self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaStreamTrack (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"id") 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)
getLabel ::
(MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>
self -> m result
getLabel :: self -> m result
getLabel self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaStreamTrack (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)
setEnabled ::
(MonadDOM m, IsMediaStreamTrack self) => self -> Bool -> m ()
setEnabled :: self -> Bool -> m ()
setEnabled self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (DOM ()) MediaStreamTrack (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]
"enabled" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getEnabled ::
(MonadDOM m, IsMediaStreamTrack self) => self -> m Bool
getEnabled :: self -> m Bool
getEnabled self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaStreamTrack (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"enabled") 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)
getMuted :: (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool
getMuted :: self -> m Bool
getMuted self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaStreamTrack (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"muted") 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)
mute ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
mute :: EventName self Event
mute = DOMString -> EventName self Event
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"mute")
unmute ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
unmute :: EventName self Event
unmute = DOMString -> EventName self Event
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"unmute")
getReadyState ::
(MonadDOM m, IsMediaStreamTrack self) =>
self -> m MediaStreamTrackState
getReadyState :: self -> m MediaStreamTrackState
getReadyState self
self
= DOM MediaStreamTrackState -> m MediaStreamTrackState
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> MediaStreamTrack
forall o. IsMediaStreamTrack o => o -> MediaStreamTrack
toMediaStreamTrack self
self) MediaStreamTrack
-> Getting (JSM JSVal) MediaStreamTrack (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaStreamTrack (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"readyState") JSM JSVal
-> (JSVal -> DOM MediaStreamTrackState)
-> DOM MediaStreamTrackState
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaStreamTrackState
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
ended ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
ended :: EventName self Event
ended = DOMString -> EventName self Event
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"ended")
overConstrained ::
(IsMediaStreamTrack self, IsEventTarget self) =>
EventName self Event
overConstrained :: EventName self Event
overConstrained = DOMString -> EventName self Event
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"overconstrained")