MediaKeyMessageEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from encrypted-media-2 (webref). Do not edit.
module JSDOM.Generated.MediaKeyMessageEvent
       (newMediaKeyMessageEvent, getMessageType, getMessage, MediaKeyMessageEvent(..), gTypeMediaKeyMessageEvent)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeyMessageEvent/MediaKeyMessageEvent MDN MediaKeyMessageEvent. documentation>
newMediaKeyMessageEvent :: (MonadDOM m, ToJSString type') => type' -> MediaKeyMessageEventInit -> m MediaKeyMessageEvent
newMediaKeyMessageEvent type' eventInitDict = liftDOM (((new (jsg "MediaKeyMessageEvent") [toJSVal type', toJSVal eventInitDict]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeyMessageEvent/messageType MDN MediaKeyMessageEvent.messageType documentation>
getMessageType :: (MonadDOM m) => MediaKeyMessageEvent -> m MediaKeyMessageType
getMessageType self = liftDOM (((self ^. js "messageType") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeyMessageEvent/message MDN MediaKeyMessageEvent.message documentation>
getMessage :: (MonadDOM m) => MediaKeyMessageEvent -> m ArrayBuffer
getMessage self = liftDOM (((self ^. js "message") >>= fromJSValUnchecked))