MediaKeySystemConfiguration.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.MediaKeySystemConfiguration
       (newMediaKeySystemConfiguration, setLabel, getLabel, getLabelUnsafe, getLabelUnchecked, setInitDataTypes, getInitDataTypes, getInitDataTypesUnsafe, getInitDataTypesUnchecked, setAudioCapabilities, getAudioCapabilities, getAudioCapabilitiesUnsafe, getAudioCapabilitiesUnchecked, setVideoCapabilities, getVideoCapabilities, getVideoCapabilitiesUnsafe, getVideoCapabilitiesUnchecked, setDistinctiveIdentifier, getDistinctiveIdentifier, getDistinctiveIdentifierUnsafe, getDistinctiveIdentifierUnchecked, setPersistentState, getPersistentState, getPersistentStateUnsafe, getPersistentStateUnchecked, setSessionTypes, getSessionTypes, getSessionTypesUnsafe, getSessionTypesUnchecked, MediaKeySystemConfiguration(..), gTypeMediaKeySystemConfiguration)
       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-mediakeysystemconfiguration MediaKeySystemConfiguration specification>
newMediaKeySystemConfiguration :: (MonadDOM m) => m MediaKeySystemConfiguration
newMediaKeySystemConfiguration = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-label MediaKeySystemConfiguration.label specification>
setLabel :: (MonadDOM m, ToJSString val) => MediaKeySystemConfiguration -> val -> m ()
setLabel self val = liftDOM (void (self ^. jss "label" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-label MediaKeySystemConfiguration.label specification>
getLabel :: (MonadDOM m, FromJSString result) => MediaKeySystemConfiguration -> m (Maybe result)
getLabel self = liftDOM (((self ^. js "label") >>= fromMaybeJSString))

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

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-label MediaKeySystemConfiguration.label specification>
getLabelUnchecked :: (MonadDOM m, FromJSString result) => MediaKeySystemConfiguration -> m result
getLabelUnchecked self = liftDOM (((self ^. js "label") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-initdatatypes MediaKeySystemConfiguration.initDataTypes specification>
setInitDataTypes :: (MonadDOM m, ToJSString val) => MediaKeySystemConfiguration -> [val] -> m ()
setInitDataTypes self val = liftDOM (void (self ^. jss "initDataTypes" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-initdatatypes MediaKeySystemConfiguration.initDataTypes specification>
getInitDataTypes :: (MonadDOM m, FromJSString result) => MediaKeySystemConfiguration -> m (Maybe [result])
getInitDataTypes self = liftDOM (((self ^. js "initDataTypes") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-initdatatypes MediaKeySystemConfiguration.initDataTypes specification>
getInitDataTypesUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MediaKeySystemConfiguration -> m [result]
getInitDataTypesUnsafe self = liftDOM ((((self ^. js "initDataTypes") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-initdatatypes MediaKeySystemConfiguration.initDataTypes specification>
getInitDataTypesUnchecked :: (MonadDOM m, FromJSString result) => MediaKeySystemConfiguration -> m [result]
getInitDataTypesUnchecked self = liftDOM (((self ^. js "initDataTypes") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-audiocapabilities MediaKeySystemConfiguration.audioCapabilities specification>
setAudioCapabilities :: (MonadDOM m) => MediaKeySystemConfiguration -> [MediaKeySystemMediaCapability] -> m ()
setAudioCapabilities self val = liftDOM (void (self ^. jss "audioCapabilities" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-audiocapabilities MediaKeySystemConfiguration.audioCapabilities specification>
getAudioCapabilities :: (MonadDOM m) => MediaKeySystemConfiguration -> m (Maybe [MediaKeySystemMediaCapability])
getAudioCapabilities self = liftDOM (((self ^. js "audioCapabilities") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-audiocapabilities MediaKeySystemConfiguration.audioCapabilities specification>
getAudioCapabilitiesUnsafe :: (MonadDOM m, HasCallStack) => MediaKeySystemConfiguration -> m [MediaKeySystemMediaCapability]
getAudioCapabilitiesUnsafe self = liftDOM ((((self ^. js "audioCapabilities") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-audiocapabilities MediaKeySystemConfiguration.audioCapabilities specification>
getAudioCapabilitiesUnchecked :: (MonadDOM m) => MediaKeySystemConfiguration -> m [MediaKeySystemMediaCapability]
getAudioCapabilitiesUnchecked self = liftDOM (((self ^. js "audioCapabilities") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-videocapabilities MediaKeySystemConfiguration.videoCapabilities specification>
setVideoCapabilities :: (MonadDOM m) => MediaKeySystemConfiguration -> [MediaKeySystemMediaCapability] -> m ()
setVideoCapabilities self val = liftDOM (void (self ^. jss "videoCapabilities" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-videocapabilities MediaKeySystemConfiguration.videoCapabilities specification>
getVideoCapabilities :: (MonadDOM m) => MediaKeySystemConfiguration -> m (Maybe [MediaKeySystemMediaCapability])
getVideoCapabilities self = liftDOM (((self ^. js "videoCapabilities") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-videocapabilities MediaKeySystemConfiguration.videoCapabilities specification>
getVideoCapabilitiesUnsafe :: (MonadDOM m, HasCallStack) => MediaKeySystemConfiguration -> m [MediaKeySystemMediaCapability]
getVideoCapabilitiesUnsafe self = liftDOM ((((self ^. js "videoCapabilities") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-videocapabilities MediaKeySystemConfiguration.videoCapabilities specification>
getVideoCapabilitiesUnchecked :: (MonadDOM m) => MediaKeySystemConfiguration -> m [MediaKeySystemMediaCapability]
getVideoCapabilitiesUnchecked self = liftDOM (((self ^. js "videoCapabilities") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-distinctiveidentifier MediaKeySystemConfiguration.distinctiveIdentifier specification>
setDistinctiveIdentifier :: (MonadDOM m) => MediaKeySystemConfiguration -> MediaKeysRequirement -> m ()
setDistinctiveIdentifier self val = liftDOM (void (self ^. jss "distinctiveIdentifier" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-distinctiveidentifier MediaKeySystemConfiguration.distinctiveIdentifier specification>
getDistinctiveIdentifier :: (MonadDOM m) => MediaKeySystemConfiguration -> m (Maybe MediaKeysRequirement)
getDistinctiveIdentifier self = liftDOM (((self ^. js "distinctiveIdentifier") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-distinctiveidentifier MediaKeySystemConfiguration.distinctiveIdentifier specification>
getDistinctiveIdentifierUnsafe :: (MonadDOM m, HasCallStack) => MediaKeySystemConfiguration -> m MediaKeysRequirement
getDistinctiveIdentifierUnsafe self = liftDOM ((((self ^. js "distinctiveIdentifier") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-distinctiveidentifier MediaKeySystemConfiguration.distinctiveIdentifier specification>
getDistinctiveIdentifierUnchecked :: (MonadDOM m) => MediaKeySystemConfiguration -> m MediaKeysRequirement
getDistinctiveIdentifierUnchecked self = liftDOM (((self ^. js "distinctiveIdentifier") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-persistentstate MediaKeySystemConfiguration.persistentState specification>
setPersistentState :: (MonadDOM m) => MediaKeySystemConfiguration -> MediaKeysRequirement -> m ()
setPersistentState self val = liftDOM (void (self ^. jss "persistentState" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-persistentstate MediaKeySystemConfiguration.persistentState specification>
getPersistentState :: (MonadDOM m) => MediaKeySystemConfiguration -> m (Maybe MediaKeysRequirement)
getPersistentState self = liftDOM (((self ^. js "persistentState") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-persistentstate MediaKeySystemConfiguration.persistentState specification>
getPersistentStateUnsafe :: (MonadDOM m, HasCallStack) => MediaKeySystemConfiguration -> m MediaKeysRequirement
getPersistentStateUnsafe self = liftDOM ((((self ^. js "persistentState") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-persistentstate MediaKeySystemConfiguration.persistentState specification>
getPersistentStateUnchecked :: (MonadDOM m) => MediaKeySystemConfiguration -> m MediaKeysRequirement
getPersistentStateUnchecked self = liftDOM (((self ^. js "persistentState") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-sessiontypes MediaKeySystemConfiguration.sessionTypes specification>
setSessionTypes :: (MonadDOM m, ToJSString val) => MediaKeySystemConfiguration -> [val] -> m ()
setSessionTypes self val = liftDOM (void (self ^. jss "sessionTypes" (toJSVal val)))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-sessiontypes MediaKeySystemConfiguration.sessionTypes specification>
getSessionTypes :: (MonadDOM m, FromJSString result) => MediaKeySystemConfiguration -> m (Maybe [result])
getSessionTypes self = liftDOM (((self ^. js "sessionTypes") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-sessiontypes MediaKeySystemConfiguration.sessionTypes specification>
getSessionTypesUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MediaKeySystemConfiguration -> m [result]
getSessionTypesUnsafe self = liftDOM ((((self ^. js "sessionTypes") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/encrypted-media/#dom-mediakeysystemconfiguration-sessiontypes MediaKeySystemConfiguration.sessionTypes specification>
getSessionTypesUnchecked :: (MonadDOM m, FromJSString result) => MediaKeySystemConfiguration -> m [result]
getSessionTypesUnchecked self = liftDOM (((self ^. js "sessionTypes") >>= fromJSValUnchecked))