module JSDOM.Generated.MediaSourceStates
(getSourceType, getSourceId, getWidth, getWidthUnsafe,
getWidthUnchecked, getHeight, getHeightUnsafe, getHeightUnchecked,
getFrameRate, getFrameRateUnsafe, getFrameRateUnchecked,
getAspectRatio, getAspectRatioUnsafe, getAspectRatioUnchecked,
getFacingMode, getFacingModeUnsafe, getFacingModeUnchecked,
getVolume, getVolumeUnsafe, getVolumeUnchecked,
MediaSourceStates(..), gTypeMediaSourceStates)
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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
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
getSourceType ::
(MonadDOM m) => MediaSourceStates -> m SourceTypeEnum
getSourceType self
= liftDOM ((self ^. js "sourceType") >>= fromJSValUnchecked)
getSourceId ::
(MonadDOM m, FromJSString result) => MediaSourceStates -> m result
getSourceId self
= liftDOM ((self ^. js "sourceId") >>= fromJSValUnchecked)
getWidth :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)
getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)
getWidthUnsafe ::
(MonadDOM m, HasCallStack) => MediaSourceStates -> m Word
getWidthUnsafe self
= liftDOM
(((self ^. js "width") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getWidthUnchecked :: (MonadDOM m) => MediaSourceStates -> m Word
getWidthUnchecked self
= liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
getHeight :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)
getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
getHeightUnsafe ::
(MonadDOM m, HasCallStack) => MediaSourceStates -> m Word
getHeightUnsafe self
= liftDOM
(((self ^. js "height") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getHeightUnchecked :: (MonadDOM m) => MediaSourceStates -> m Word
getHeightUnchecked self
= liftDOM ((self ^. js "height") >>= fromJSValUnchecked)
getFrameRate ::
(MonadDOM m) => MediaSourceStates -> m (Maybe Float)
getFrameRate self
= liftDOM ((self ^. js "frameRate") >>= fromJSVal)
getFrameRateUnsafe ::
(MonadDOM m, HasCallStack) => MediaSourceStates -> m Float
getFrameRateUnsafe self
= liftDOM
(((self ^. js "frameRate") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getFrameRateUnchecked ::
(MonadDOM m) => MediaSourceStates -> m Float
getFrameRateUnchecked self
= liftDOM ((self ^. js "frameRate") >>= fromJSValUnchecked)
getAspectRatio ::
(MonadDOM m) => MediaSourceStates -> m (Maybe Float)
getAspectRatio self
= liftDOM ((self ^. js "aspectRatio") >>= fromJSVal)
getAspectRatioUnsafe ::
(MonadDOM m, HasCallStack) => MediaSourceStates -> m Float
getAspectRatioUnsafe self
= liftDOM
(((self ^. js "aspectRatio") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getAspectRatioUnchecked ::
(MonadDOM m) => MediaSourceStates -> m Float
getAspectRatioUnchecked self
= liftDOM ((self ^. js "aspectRatio") >>= fromJSValUnchecked)
getFacingMode ::
(MonadDOM m) => MediaSourceStates -> m (Maybe VideoFacingModeEnum)
getFacingMode self
= liftDOM ((self ^. js "facingMode") >>= fromJSVal)
getFacingModeUnsafe ::
(MonadDOM m, HasCallStack) =>
MediaSourceStates -> m VideoFacingModeEnum
getFacingModeUnsafe self
= liftDOM
(((self ^. js "facingMode") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getFacingModeUnchecked ::
(MonadDOM m) => MediaSourceStates -> m VideoFacingModeEnum
getFacingModeUnchecked self
= liftDOM ((self ^. js "facingMode") >>= fromJSValUnchecked)
getVolume :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)
getVolume self = liftDOM ((self ^. js "volume") >>= fromJSVal)
getVolumeUnsafe ::
(MonadDOM m, HasCallStack) => MediaSourceStates -> m Word
getVolumeUnsafe self
= liftDOM
(((self ^. js "volume") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getVolumeUnchecked :: (MonadDOM m) => MediaSourceStates -> m Word
getVolumeUnchecked self
= liftDOM ((self ^. js "volume") >>= fromJSValUnchecked)