MediaKeys.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.MediaKeys
       (createSession, createSession_, getStatusForPolicy, getStatusForPolicy_, setServerCertificate, setServerCertificate_, MediaKeys(..), gTypeMediaKeys)
       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/MediaKeys/createSession MDN MediaKeys.createSession documentation>
createSession :: (MonadDOM m) => MediaKeys -> Maybe MediaKeySessionType -> m MediaKeySession
createSession self sessionType = liftDOM (((self ^. jsf "createSession" [P.maybe (P.return jsUndefined) toJSVal sessionType]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeys/createSession MDN MediaKeys.createSession documentation>
createSession_ :: (MonadDOM m) => MediaKeys -> Maybe MediaKeySessionType -> m ()
createSession_ self sessionType = liftDOM (void (self ^. jsf "createSession" [P.maybe (P.return jsUndefined) toJSVal sessionType]))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeys/getStatusForPolicy MDN MediaKeys.getStatusForPolicy documentation>
getStatusForPolicy :: (MonadDOM m) => MediaKeys -> Maybe MediaKeysPolicy -> m MediaKeyStatus
getStatusForPolicy self policy = liftDOM (((((self ^. jsf "getStatusForPolicy" [P.maybe (P.return jsUndefined) toJSVal policy]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeys/getStatusForPolicy MDN MediaKeys.getStatusForPolicy documentation>
getStatusForPolicy_ :: (MonadDOM m) => MediaKeys -> Maybe MediaKeysPolicy -> m ()
getStatusForPolicy_ self policy = liftDOM (void (((self ^. jsf "getStatusForPolicy" [P.maybe (P.return jsUndefined) toJSVal policy]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeys/setServerCertificate MDN MediaKeys.setServerCertificate documentation>
setServerCertificate :: (MonadDOM m, IsBufferSource serverCertificate) => MediaKeys -> serverCertificate -> m Bool
setServerCertificate self serverCertificate = liftDOM (((((self ^. jsf "setServerCertificate" [toJSVal serverCertificate]) >>= readPromise)) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeys/setServerCertificate MDN MediaKeys.setServerCertificate documentation>
setServerCertificate_ :: (MonadDOM m, IsBufferSource serverCertificate) => MediaKeys -> serverCertificate -> m ()
setServerCertificate_ self serverCertificate = liftDOM (void (((self ^. jsf "setServerCertificate" [toJSVal serverCertificate]) >>= readPromise)))