module JSDOM.Generated.MediaStreamTrack
(clone, clone_, stop, getConstraints, getConstraints_, getSettings,
getSettings_, getCapabilities, getCapabilities_, applyConstraints,
getKind, getId, getLabel, setEnabled, getEnabled, getMuted, mute,
unmute, get_readonly, getRemote, getReadyState, ended,
overConstrained, MediaStreamTrack(..), gTypeMediaStreamTrack)
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, 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)
import JSDOM.Enums
clone :: (MonadDOM m) => MediaStreamTrack -> m MediaStreamTrack
clone self
= liftDOM ((self ^. jsf "clone" ()) >>= fromJSValUnchecked)
clone_ :: (MonadDOM m) => MediaStreamTrack -> m ()
clone_ self = liftDOM (void (self ^. jsf "clone" ()))
stop :: (MonadDOM m) => MediaStreamTrack -> m ()
stop self = liftDOM (void (self ^. jsf "stop" ()))
getConstraints ::
(MonadDOM m) => MediaStreamTrack -> m MediaTrackConstraints
getConstraints self
= liftDOM
((self ^. jsf "getConstraints" ()) >>= fromJSValUnchecked)
getConstraints_ :: (MonadDOM m) => MediaStreamTrack -> m ()
getConstraints_ self
= liftDOM (void (self ^. jsf "getConstraints" ()))
getSettings ::
(MonadDOM m) => MediaStreamTrack -> m MediaTrackSettings
getSettings self
= liftDOM ((self ^. jsf "getSettings" ()) >>= fromJSValUnchecked)
getSettings_ :: (MonadDOM m) => MediaStreamTrack -> m ()
getSettings_ self = liftDOM (void (self ^. jsf "getSettings" ()))
getCapabilities ::
(MonadDOM m) => MediaStreamTrack -> m MediaTrackCapabilities
getCapabilities self
= liftDOM
((self ^. jsf "getCapabilities" ()) >>= fromJSValUnchecked)
getCapabilities_ :: (MonadDOM m) => MediaStreamTrack -> m ()
getCapabilities_ self
= liftDOM (void (self ^. jsf "getCapabilities" ()))
applyConstraints ::
(MonadDOM m) =>
MediaStreamTrack -> Maybe MediaTrackConstraints -> m ()
applyConstraints self constraints
= liftDOM
(void
((self ^. jsf "applyConstraints" [toJSVal constraints]) >>=
readPromise))
getKind ::
(MonadDOM m, FromJSString result) => MediaStreamTrack -> m result
getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)
getId ::
(MonadDOM m, FromJSString result) => MediaStreamTrack -> m result
getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)
getLabel ::
(MonadDOM m, FromJSString result) => MediaStreamTrack -> m result
getLabel self
= liftDOM ((self ^. js "label") >>= fromJSValUnchecked)
setEnabled :: (MonadDOM m) => MediaStreamTrack -> Bool -> m ()
setEnabled self val = liftDOM (self ^. jss "enabled" (toJSVal val))
getEnabled :: (MonadDOM m) => MediaStreamTrack -> m Bool
getEnabled self = liftDOM ((self ^. js "enabled") >>= valToBool)
getMuted :: (MonadDOM m) => MediaStreamTrack -> m Bool
getMuted self = liftDOM ((self ^. js "muted") >>= valToBool)
mute :: EventName MediaStreamTrack Event
mute = unsafeEventName (toJSString "mute")
unmute :: EventName MediaStreamTrack Event
unmute = unsafeEventName (toJSString "unmute")
get_readonly :: (MonadDOM m) => MediaStreamTrack -> m Bool
get_readonly self
= liftDOM ((self ^. js "_readonly") >>= valToBool)
getRemote :: (MonadDOM m) => MediaStreamTrack -> m Bool
getRemote self = liftDOM ((self ^. js "remote") >>= valToBool)
getReadyState ::
(MonadDOM m) => MediaStreamTrack -> m MediaStreamTrackState
getReadyState self
= liftDOM ((self ^. js "readyState") >>= fromJSValUnchecked)
ended :: EventName MediaStreamTrack Event
ended = unsafeEventName (toJSString "ended")
overConstrained :: EventName MediaStreamTrack Event
overConstrained = unsafeEventName (toJSString "overconstrained")