VideoFrameRequestCallback.hs

{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from video-rvfc (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.VideoFrameRequestCallback
       (newVideoFrameRequestCallback, newVideoFrameRequestCallbackSync, newVideoFrameRequestCallbackAsync, VideoFrameRequestCallback)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import Data.Coerce (coerce)
import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2)
import GHCJS.DOM.Types
import GHCJS.DOM.JSFFI.Generated.Enums

newVideoFrameRequestCallback :: (MonadDOM m) => (Double -> VideoFrameCallbackMetadata -> IO ()) -> m VideoFrameRequestCallback
newVideoFrameRequestCallback callback = liftDOM ((VideoFrameRequestCallback . coerce) <$> syncCallback2 ContinueAsync (\ now metadata -> do
          now' <- fromJSValUnchecked now
          metadata' <- fromJSValUnchecked metadata
          callback now' metadata'))

newVideoFrameRequestCallbackSync :: (MonadDOM m) => (Double -> VideoFrameCallbackMetadata -> IO ()) -> m VideoFrameRequestCallback
newVideoFrameRequestCallbackSync callback = liftDOM ((VideoFrameRequestCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ now metadata -> do
          now' <- fromJSValUnchecked now
          metadata' <- fromJSValUnchecked metadata
          callback now' metadata'))

newVideoFrameRequestCallbackAsync :: (MonadDOM m) => (Double -> VideoFrameCallbackMetadata -> IO ()) -> m VideoFrameRequestCallback
newVideoFrameRequestCallbackAsync callback = liftDOM ((VideoFrameRequestCallback . coerce) <$> asyncCallback2 (\ now metadata -> do
          now' <- fromJSValUnchecked now
          metadata' <- fromJSValUnchecked metadata
          callback now' metadata'))