{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaSourceStates (js_getSourceType, getSourceType, js_getSourceId, getSourceId, js_getWidth, getWidth, getWidthUnsafe, getWidthUnchecked, js_getHeight, getHeight, getHeightUnsafe, getHeightUnchecked, js_getFrameRate, getFrameRate, getFrameRateUnsafe, getFrameRateUnchecked, js_getAspectRatio, getAspectRatio, getAspectRatioUnsafe, getAspectRatioUnchecked, js_getFacingMode, getFacingMode, js_getVolume, getVolume, getVolumeUnsafe, getVolumeUnchecked, MediaSourceStates(..), gTypeMediaSourceStates) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums #if MIN_VERSION_base(4,9,0) import GHC.Stack (HasCallStack) #elif MIN_VERSION_base(4,8,0) import GHC.Stack (CallStack) import GHC.Exts (Constraint) type HasCallStack = ((?callStack :: CallStack) :: Constraint) #else import GHC.Exts (Constraint) type HasCallStack = (() :: Constraint) #endif foreign import javascript unsafe "$1[\"sourceType\"]" js_getSourceType :: MediaSourceStates -> IO JSVal -- | getSourceType :: (MonadIO m) => MediaSourceStates -> m SourceTypeEnum getSourceType self = liftIO ((js_getSourceType (self)) >>= fromJSValUnchecked) foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId :: MediaSourceStates -> IO JSString -- | getSourceId :: (MonadIO m, FromJSString result) => MediaSourceStates -> m result getSourceId self = liftIO (fromJSString <$> (js_getSourceId (self))) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: MediaSourceStates -> IO JSVal -- | getWidth :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getWidth self = liftIO ((js_getWidth (self)) >>= fromJSValUnchecked) -- | getWidthUnsafe :: (MonadIO m, HasCallStack) => MediaSourceStates -> m Word getWidthUnsafe self = liftIO (((js_getWidth (self)) >>= fromJSValUnchecked) >>= maybe (Prelude.error "Nothing to return") return) -- | getWidthUnchecked :: (MonadIO m) => MediaSourceStates -> m Word getWidthUnchecked self = liftIO ((js_getWidth (self)) >>= fromJSValUnchecked) foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: MediaSourceStates -> IO JSVal -- | getHeight :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getHeight self = liftIO ((js_getHeight (self)) >>= fromJSValUnchecked) -- | getHeightUnsafe :: (MonadIO m, HasCallStack) => MediaSourceStates -> m Word getHeightUnsafe self = liftIO (((js_getHeight (self)) >>= fromJSValUnchecked) >>= maybe (Prelude.error "Nothing to return") return) -- | getHeightUnchecked :: (MonadIO m) => MediaSourceStates -> m Word getHeightUnchecked self = liftIO ((js_getHeight (self)) >>= fromJSValUnchecked) foreign import javascript unsafe "$1[\"frameRate\"]" js_getFrameRate :: MediaSourceStates -> IO JSVal -- | getFrameRate :: (MonadIO m) => MediaSourceStates -> m (Maybe Float) getFrameRate self = liftIO ((js_getFrameRate (self)) >>= fromJSValUnchecked) -- | getFrameRateUnsafe :: (MonadIO m, HasCallStack) => MediaSourceStates -> m Float getFrameRateUnsafe self = liftIO (((js_getFrameRate (self)) >>= fromJSValUnchecked) >>= maybe (Prelude.error "Nothing to return") return) -- | getFrameRateUnchecked :: (MonadIO m) => MediaSourceStates -> m Float getFrameRateUnchecked self = liftIO ((js_getFrameRate (self)) >>= fromJSValUnchecked) foreign import javascript unsafe "$1[\"aspectRatio\"]" js_getAspectRatio :: MediaSourceStates -> IO JSVal -- | getAspectRatio :: (MonadIO m) => MediaSourceStates -> m (Maybe Float) getAspectRatio self = liftIO ((js_getAspectRatio (self)) >>= fromJSValUnchecked) -- | getAspectRatioUnsafe :: (MonadIO m, HasCallStack) => MediaSourceStates -> m Float getAspectRatioUnsafe self = liftIO (((js_getAspectRatio (self)) >>= fromJSValUnchecked) >>= maybe (Prelude.error "Nothing to return") return) -- | getAspectRatioUnchecked :: (MonadIO m) => MediaSourceStates -> m Float getAspectRatioUnchecked self = liftIO ((js_getAspectRatio (self)) >>= fromJSValUnchecked) foreign import javascript unsafe "$1[\"facingMode\"]" js_getFacingMode :: MediaSourceStates -> IO JSVal -- | getFacingMode :: (MonadIO m) => MediaSourceStates -> m VideoFacingModeEnum getFacingMode self = liftIO ((js_getFacingMode (self)) >>= fromJSValUnchecked) foreign import javascript unsafe "$1[\"volume\"]" js_getVolume :: MediaSourceStates -> IO JSVal -- | getVolume :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getVolume self = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked) -- | getVolumeUnsafe :: (MonadIO m, HasCallStack) => MediaSourceStates -> m Word getVolumeUnsafe self = liftIO (((js_getVolume (self)) >>= fromJSValUnchecked) >>= maybe (Prelude.error "Nothing to return") return) -- | getVolumeUnchecked :: (MonadIO m) => MediaSourceStates -> m Word getVolumeUnchecked self = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked)