module JSDOM.Generated.MediaKeyMessageEvent
(getMessage, getMessageUnsafe, getMessageUnchecked,
getDestinationURL, MediaKeyMessageEvent(..),
gTypeMediaKeyMessageEvent)
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
getMessage ::
(MonadDOM m) => MediaKeyMessageEvent -> m (Maybe Uint8Array)
getMessage self = liftDOM ((self ^. js "message") >>= fromJSVal)
getMessageUnsafe ::
(MonadDOM m, HasCallStack) => MediaKeyMessageEvent -> m Uint8Array
getMessageUnsafe self
= liftDOM
(((self ^. js "message") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getMessageUnchecked ::
(MonadDOM m) => MediaKeyMessageEvent -> m Uint8Array
getMessageUnchecked self
= liftDOM ((self ^. js "message") >>= fromJSValUnchecked)
getDestinationURL ::
(MonadDOM m, FromJSString result) =>
MediaKeyMessageEvent -> m result
getDestinationURL self
= liftDOM ((self ^. js "destinationURL") >>= fromJSValUnchecked)