module JSDOM.Generated.MediaKeyEvent
(getKeySystem, getSessionId, getInitData, getInitDataUnsafe,
getInitDataUnchecked, getMessage, getMessageUnsafe,
getMessageUnchecked, getDefaultURL, getErrorCode,
getErrorCodeUnsafe, getErrorCodeUnchecked, getSystemCode,
MediaKeyEvent(..), gTypeMediaKeyEvent)
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
getKeySystem ::
(MonadDOM m, FromJSString result) => MediaKeyEvent -> m result
getKeySystem self
= liftDOM ((self ^. js "keySystem") >>= fromJSValUnchecked)
getSessionId ::
(MonadDOM m, FromJSString result) => MediaKeyEvent -> m result
getSessionId self
= liftDOM ((self ^. js "sessionId") >>= fromJSValUnchecked)
getInitData ::
(MonadDOM m) => MediaKeyEvent -> m (Maybe Uint8Array)
getInitData self = liftDOM ((self ^. js "initData") >>= fromJSVal)
getInitDataUnsafe ::
(MonadDOM m, HasCallStack) => MediaKeyEvent -> m Uint8Array
getInitDataUnsafe self
= liftDOM
(((self ^. js "initData") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getInitDataUnchecked ::
(MonadDOM m) => MediaKeyEvent -> m Uint8Array
getInitDataUnchecked self
= liftDOM ((self ^. js "initData") >>= fromJSValUnchecked)
getMessage :: (MonadDOM m) => MediaKeyEvent -> m (Maybe Uint8Array)
getMessage self = liftDOM ((self ^. js "message") >>= fromJSVal)
getMessageUnsafe ::
(MonadDOM m, HasCallStack) => MediaKeyEvent -> m Uint8Array
getMessageUnsafe self
= liftDOM
(((self ^. js "message") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getMessageUnchecked ::
(MonadDOM m) => MediaKeyEvent -> m Uint8Array
getMessageUnchecked self
= liftDOM ((self ^. js "message") >>= fromJSValUnchecked)
getDefaultURL ::
(MonadDOM m, FromJSString result) => MediaKeyEvent -> m result
getDefaultURL self
= liftDOM ((self ^. js "defaultURL") >>= fromJSValUnchecked)
getErrorCode ::
(MonadDOM m) => MediaKeyEvent -> m (Maybe MediaKeyError)
getErrorCode self
= liftDOM ((self ^. js "errorCode") >>= fromJSVal)
getErrorCodeUnsafe ::
(MonadDOM m, HasCallStack) => MediaKeyEvent -> m MediaKeyError
getErrorCodeUnsafe self
= liftDOM
(((self ^. js "errorCode") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getErrorCodeUnchecked ::
(MonadDOM m) => MediaKeyEvent -> m MediaKeyError
getErrorCodeUnchecked self
= liftDOM ((self ^. js "errorCode") >>= fromJSValUnchecked)
getSystemCode :: (MonadDOM m) => MediaKeyEvent -> m Word
getSystemCode self
= liftDOM (round <$> ((self ^. js "systemCode") >>= valToNumber))