MediaKeySystemMediaCapability.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.MediaKeySystemMediaCapability
       (newMediaKeySystemMediaCapability, setContentType, getContentType, getContentTypeUnsafe, getContentTypeUnchecked, setEncryptionScheme, getEncryptionScheme, getEncryptionSchemeUnsafe, getEncryptionSchemeUnchecked, setRobustness, getRobustness, getRobustnessUnsafe, getRobustnessUnchecked, MediaKeySystemMediaCapability(..), gTypeMediaKeySystemMediaCapability)
       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://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability MediaKeySystemMediaCapability specification>
newMediaKeySystemMediaCapability :: (MonadDOM m) => m MediaKeySystemMediaCapability
newMediaKeySystemMediaCapability = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-contenttype MediaKeySystemMediaCapability.contentType specification>
setContentType :: (MonadDOM m, ToJSString val) => MediaKeySystemMediaCapability -> val -> m ()
setContentType self val = liftDOM (void (self ^. jss "contentType" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-contenttype MediaKeySystemMediaCapability.contentType specification>
getContentType :: (MonadDOM m, FromJSString result) => MediaKeySystemMediaCapability -> m (Maybe result)
getContentType self = liftDOM (((self ^. js "contentType") >>= fromMaybeJSString))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-contenttype MediaKeySystemMediaCapability.contentType specification>
getContentTypeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MediaKeySystemMediaCapability -> m result
getContentTypeUnsafe self = liftDOM ((((self ^. js "contentType") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-contenttype MediaKeySystemMediaCapability.contentType specification>
getContentTypeUnchecked :: (MonadDOM m, FromJSString result) => MediaKeySystemMediaCapability -> m result
getContentTypeUnchecked self = liftDOM (((self ^. js "contentType") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-encryptionscheme MediaKeySystemMediaCapability.encryptionScheme specification>
setEncryptionScheme :: (MonadDOM m, ToJSString val) => MediaKeySystemMediaCapability -> Maybe val -> m ()
setEncryptionScheme self val = liftDOM (void (self ^. jss "encryptionScheme" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-encryptionscheme MediaKeySystemMediaCapability.encryptionScheme specification>
getEncryptionScheme :: (MonadDOM m, FromJSString result) => MediaKeySystemMediaCapability -> m (Maybe result)
getEncryptionScheme self = liftDOM (((self ^. js "encryptionScheme") >>= fromMaybeJSString))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-encryptionscheme MediaKeySystemMediaCapability.encryptionScheme specification>
getEncryptionSchemeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MediaKeySystemMediaCapability -> m result
getEncryptionSchemeUnsafe self = liftDOM ((((self ^. js "encryptionScheme") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-encryptionscheme MediaKeySystemMediaCapability.encryptionScheme specification>
getEncryptionSchemeUnchecked :: (MonadDOM m, FromJSString result) => MediaKeySystemMediaCapability -> m result
getEncryptionSchemeUnchecked self = liftDOM (((self ^. js "encryptionScheme") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-robustness MediaKeySystemMediaCapability.robustness specification>
setRobustness :: (MonadDOM m, ToJSString val) => MediaKeySystemMediaCapability -> val -> m ()
setRobustness self val = liftDOM (void (self ^. jss "robustness" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-robustness MediaKeySystemMediaCapability.robustness specification>
getRobustness :: (MonadDOM m, FromJSString result) => MediaKeySystemMediaCapability -> m (Maybe result)
getRobustness self = liftDOM (((self ^. js "robustness") >>= fromMaybeJSString))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-robustness MediaKeySystemMediaCapability.robustness specification>
getRobustnessUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MediaKeySystemMediaCapability -> m result
getRobustnessUnsafe self = liftDOM ((((self ^. js "robustness") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemmediacapability-robustness MediaKeySystemMediaCapability.robustness specification>
getRobustnessUnchecked :: (MonadDOM m, FromJSString result) => MediaKeySystemMediaCapability -> m result
getRobustnessUnchecked self = liftDOM (((self ^. js "robustness") >>= fromJSValUnchecked))