MediaEncryptedEvent.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.MediaEncryptedEvent
       (newMediaEncryptedEvent, getInitDataType, getInitData, getInitDataUnsafe, getInitDataUnchecked, MediaEncryptedEvent(..), gTypeMediaEncryptedEvent)
       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/MediaEncryptedEvent/MediaEncryptedEvent MDN MediaEncryptedEvent. documentation>
newMediaEncryptedEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe MediaEncryptedEventInit -> m MediaEncryptedEvent
newMediaEncryptedEvent type' eventInitDict = liftDOM (((new (jsg "MediaEncryptedEvent") [toJSVal type', P.maybe (P.return jsUndefined) toJSVal eventInitDict]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/MediaEncryptedEvent/initDataType MDN MediaEncryptedEvent.initDataType documentation>
getInitDataType :: (MonadDOM m, FromJSString result) => MediaEncryptedEvent -> m result
getInitDataType self = liftDOM (((self ^. js "initDataType") >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/MediaEncryptedEvent/initData MDN MediaEncryptedEvent.initData documentation>
getInitDataUnsafe :: (MonadDOM m, HasCallStack) => MediaEncryptedEvent -> m ArrayBuffer
getInitDataUnsafe self = liftDOM ((((self ^. js "initData") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

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