MediaKeySystemAccess.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.MediaKeySystemAccess
       (createMediaKeys, createMediaKeys_, getConfiguration, getConfiguration_, getKeySystem, MediaKeySystemAccess(..), gTypeMediaKeySystemAccess)
       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/MediaKeySystemAccess/createMediaKeys MDN MediaKeySystemAccess.createMediaKeys documentation>
createMediaKeys :: (MonadDOM m) => MediaKeySystemAccess -> m MediaKeys
createMediaKeys self = liftDOM (((((self ^. jsf "createMediaKeys" ()) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeySystemAccess/createMediaKeys MDN MediaKeySystemAccess.createMediaKeys documentation>
createMediaKeys_ :: (MonadDOM m) => MediaKeySystemAccess -> m ()
createMediaKeys_ self = liftDOM (void (((self ^. jsf "createMediaKeys" ()) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeySystemAccess/getConfiguration MDN MediaKeySystemAccess.getConfiguration documentation>
getConfiguration :: (MonadDOM m) => MediaKeySystemAccess -> m MediaKeySystemConfiguration
getConfiguration self = liftDOM (((self ^. jsf "getConfiguration" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeySystemAccess/getConfiguration MDN MediaKeySystemAccess.getConfiguration documentation>
getConfiguration_ :: (MonadDOM m) => MediaKeySystemAccess -> m ()
getConfiguration_ self = liftDOM (void (self ^. jsf "getConfiguration" ()))

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