module GHCJS.DOM.JSFFI.Navigator (
module Generated
, js_getUserMedia
, getUserMedia
) where
import GHC.Base (IO(..))
import GHC.Prim (RealWorld, State#, ByteArray#)
import Control.Monad.IO.Class (MonadIO(..))
import GHCJS.Prim (JSVal(..))
import GHCJS.DOM.Types
import GHCJS.DOM.JSFFI.NavigatorUserMediaError (throwUserMediaException)
import GHCJS.DOM.JSFFI.Generated.Navigator as Generated hiding (js_getUserMedia, getUserMedia)
foreign import javascript interruptible
"$1[\"webkitGetUserMedia\"]($2, function(ms) { $c(true, ms); }, function(e) { $c(false, e); });" js_getUserMedia ::
Navigator -> Nullable Dictionary -> State# RealWorld -> (# State# RealWorld, Bool, ByteArray# #)
getUserMedia' :: MonadIO m => Navigator -> Maybe Dictionary -> m (Either NavigatorUserMediaError MediaStream)
getUserMedia' self options = liftIO . IO $ \s# ->
case js_getUserMedia self (maybeToNullable options) s# of
(# s2#, False, error #) -> (# s2#, Left (NavigatorUserMediaError (JSVal error)) #)
(# s2#, True, ms #) -> (# s2#, Right (MediaStream (JSVal ms )) #)
getUserMedia :: MonadIO m => Navigator -> Maybe Dictionary -> m MediaStream
getUserMedia self options = getUserMedia' self options >>= either throwUserMediaException return