module JSDOM.Generated.MediaKeySession
(update, close, getError, getErrorUnsafe, getErrorUnchecked,
getKeySystem, getSessionId, webKitKeyAdded, webKitKeyError,
webKitKeyMessage, MediaKeySession(..), gTypeMediaKeySession)
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
update ::
(MonadDOM m, IsUint8Array key) =>
MediaKeySession -> Maybe key -> m ()
update self key
= liftDOM (void (self ^. jsf "update" [toJSVal key]))
close :: (MonadDOM m) => MediaKeySession -> m ()
close self = liftDOM (void (self ^. jsf "close" ()))
getError ::
(MonadDOM m) => MediaKeySession -> m (Maybe MediaKeyError)
getError self = liftDOM ((self ^. js "error") >>= fromJSVal)
getErrorUnsafe ::
(MonadDOM m, HasCallStack) => MediaKeySession -> m MediaKeyError
getErrorUnsafe self
= liftDOM
(((self ^. js "error") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getErrorUnchecked ::
(MonadDOM m) => MediaKeySession -> m MediaKeyError
getErrorUnchecked self
= liftDOM ((self ^. js "error") >>= fromJSValUnchecked)
getKeySystem ::
(MonadDOM m, FromJSString result) => MediaKeySession -> m result
getKeySystem self
= liftDOM ((self ^. js "keySystem") >>= fromJSValUnchecked)
getSessionId ::
(MonadDOM m, FromJSString result) => MediaKeySession -> m result
getSessionId self
= liftDOM ((self ^. js "sessionId") >>= fromJSValUnchecked)
webKitKeyAdded :: EventName MediaKeySession Event
webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded")
webKitKeyError :: EventName MediaKeySession Event
webKitKeyError = unsafeEventName (toJSString "webkitkeyerror")
webKitKeyMessage :: EventName MediaKeySession Event
webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage")