{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyError (pattern MEDIA_KEYERR_UNKNOWN, pattern MEDIA_KEYERR_CLIENT, pattern MEDIA_KEYERR_SERVICE, pattern MEDIA_KEYERR_OUTPUT, pattern MEDIA_KEYERR_HARDWARECHANGE, pattern MEDIA_KEYERR_DOMAIN, js_getCode, getCode, js_getSystemCode, getSystemCode, MediaKeyError, castToMediaKeyError, gTypeMediaKeyError) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) 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.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums pattern MEDIA_KEYERR_UNKNOWN = 1 pattern MEDIA_KEYERR_CLIENT = 2 pattern MEDIA_KEYERR_SERVICE = 3 pattern MEDIA_KEYERR_OUTPUT = 4 pattern MEDIA_KEYERR_HARDWARECHANGE = 5 pattern MEDIA_KEYERR_DOMAIN = 6 foreign import javascript unsafe "$1[\"code\"]" js_getCode :: MediaKeyError -> IO Word -- | getCode :: (MonadIO m) => MediaKeyError -> m Word getCode self = liftIO (js_getCode (self)) foreign import javascript unsafe "$1[\"systemCode\"]" js_getSystemCode :: MediaKeyError -> IO Word -- | getSystemCode :: (MonadIO m) => MediaKeyError -> m Word getSystemCode self = liftIO (js_getSystemCode (self))