VideoPlaybackQuality.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from media-playback-quality (webref). Do not edit.
module JSDOM.Generated.VideoPlaybackQuality
       (getCreationTime, getDroppedVideoFrames, getTotalVideoFrames, getCorruptedVideoFrames, VideoPlaybackQuality(..), gTypeVideoPlaybackQuality)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/VideoPlaybackQuality/creationTime MDN VideoPlaybackQuality.creationTime documentation>
getCreationTime :: (MonadDOM m) => VideoPlaybackQuality -> m Double
getCreationTime self = liftDOM (((self ^. js "creationTime") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VideoPlaybackQuality/droppedVideoFrames MDN VideoPlaybackQuality.droppedVideoFrames documentation>
getDroppedVideoFrames :: (MonadDOM m) => VideoPlaybackQuality -> m Word
getDroppedVideoFrames self = liftDOM ((P.round <$> ((self ^. js "droppedVideoFrames") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/VideoPlaybackQuality/totalVideoFrames MDN VideoPlaybackQuality.totalVideoFrames documentation>
getTotalVideoFrames :: (MonadDOM m) => VideoPlaybackQuality -> m Word
getTotalVideoFrames self = liftDOM ((P.round <$> ((self ^. js "totalVideoFrames") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/VideoPlaybackQuality/corruptedVideoFrames MDN VideoPlaybackQuality.corruptedVideoFrames documentation>
getCorruptedVideoFrames :: (MonadDOM m) => VideoPlaybackQuality -> m Word
getCorruptedVideoFrames self = liftDOM ((P.round <$> ((self ^. js "corruptedVideoFrames") >>= valToNumber)))