module GHCJS.DOM.JSFFI.Generated.MediaKeySession
(js_update, update, js_close, close, js_getError, getError,
getErrorUnsafe, getErrorUnchecked, js_getKeySystem, getKeySystem,
js_getSessionId, getSessionId, webKitKeyAdded, webKitKeyError,
webKitKeyMessage, MediaKeySession(..), gTypeMediaKeySession)
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
foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::
MediaKeySession -> Nullable Uint8Array -> IO ()
update ::
(MonadIO m, IsUint8Array key) =>
MediaKeySession -> Maybe key -> m ()
update self key
= liftIO
(js_update (self) (maybeToNullable (fmap toUint8Array key)))
foreign import javascript unsafe "$1[\"close\"]()" js_close ::
MediaKeySession -> IO ()
close :: (MonadIO m) => MediaKeySession -> m ()
close self = liftIO (js_close (self))
foreign import javascript unsafe "$1[\"error\"]" js_getError ::
MediaKeySession -> IO (Nullable MediaKeyError)
getError ::
(MonadIO m) => MediaKeySession -> m (Maybe MediaKeyError)
getError self = liftIO (nullableToMaybe <$> (js_getError (self)))
getErrorUnsafe ::
(MonadIO m, HasCallStack) => MediaKeySession -> m MediaKeyError
getErrorUnsafe self
= liftIO
((nullableToMaybe <$> (js_getError (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getErrorUnchecked ::
(MonadIO m) => MediaKeySession -> m MediaKeyError
getErrorUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))
foreign import javascript unsafe "$1[\"keySystem\"]"
js_getKeySystem :: MediaKeySession -> IO JSString
getKeySystem ::
(MonadIO m, FromJSString result) => MediaKeySession -> m result
getKeySystem self
= liftIO (fromJSString <$> (js_getKeySystem (self)))
foreign import javascript unsafe "$1[\"sessionId\"]"
js_getSessionId :: MediaKeySession -> IO JSString
getSessionId ::
(MonadIO m, FromJSString result) => MediaKeySession -> m result
getSessionId self
= liftIO (fromJSString <$> (js_getSessionId (self)))
webKitKeyAdded :: EventName MediaKeySession Event
webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded")
webKitKeyError :: EventName MediaKeySession Event
webKitKeyError = unsafeEventName (toJSString "webkitkeyerror")
webKitKeyMessage :: EventName MediaKeySession Event
webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage")