MediaCapabilitiesKeySystemConfiguration.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from media-capabilities (webref). Do not edit.
module JSDOM.Generated.MediaCapabilitiesKeySystemConfiguration
       (newMediaCapabilitiesKeySystemConfiguration, setKeySystem, getKeySystem, setInitDataType, getInitDataType, getInitDataTypeUnsafe, getInitDataTypeUnchecked, setDistinctiveIdentifier, getDistinctiveIdentifier, getDistinctiveIdentifierUnsafe, getDistinctiveIdentifierUnchecked, setPersistentState, getPersistentState, getPersistentStateUnsafe, getPersistentStateUnchecked, setSessionTypes, getSessionTypes, getSessionTypesUnsafe, getSessionTypesUnchecked, setAudio, getAudio, getAudioUnsafe, getAudioUnchecked, setVideo, getVideo, getVideoUnsafe, getVideoUnchecked, MediaCapabilitiesKeySystemConfiguration(..), gTypeMediaCapabilitiesKeySystemConfiguration)
       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/media-capabilities/#dictdef-mediacapabilitieskeysystemconfiguration MediaCapabilitiesKeySystemConfiguration specification>
newMediaCapabilitiesKeySystemConfiguration :: (MonadDOM m, ToJSString keySystem) => keySystem -> m MediaCapabilitiesKeySystemConfiguration
newMediaCapabilitiesKeySystemConfiguration keySystem = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "keySystem" (toJSVal keySystem)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-keysystem MediaCapabilitiesKeySystemConfiguration.keySystem specification>
setKeySystem :: (MonadDOM m, ToJSString val) => MediaCapabilitiesKeySystemConfiguration -> val -> m ()
setKeySystem self val = liftDOM (void (self ^. jss "keySystem" (toJSVal val)))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-keysystem MediaCapabilitiesKeySystemConfiguration.keySystem specification>
getKeySystem :: (MonadDOM m, FromJSString result) => MediaCapabilitiesKeySystemConfiguration -> m result
getKeySystem self = liftDOM (((self ^. js "keySystem") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-initdatatype MediaCapabilitiesKeySystemConfiguration.initDataType specification>
setInitDataType :: (MonadDOM m, ToJSString val) => MediaCapabilitiesKeySystemConfiguration -> val -> m ()
setInitDataType self val = liftDOM (void (self ^. jss "initDataType" (toJSVal val)))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-initdatatype MediaCapabilitiesKeySystemConfiguration.initDataType specification>
getInitDataType :: (MonadDOM m, FromJSString result) => MediaCapabilitiesKeySystemConfiguration -> m (Maybe result)
getInitDataType self = liftDOM (((self ^. js "initDataType") >>= fromMaybeJSString))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-initdatatype MediaCapabilitiesKeySystemConfiguration.initDataType specification>
getInitDataTypeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MediaCapabilitiesKeySystemConfiguration -> m result
getInitDataTypeUnsafe self = liftDOM ((((self ^. js "initDataType") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-initdatatype MediaCapabilitiesKeySystemConfiguration.initDataType specification>
getInitDataTypeUnchecked :: (MonadDOM m, FromJSString result) => MediaCapabilitiesKeySystemConfiguration -> m result
getInitDataTypeUnchecked self = liftDOM (((self ^. js "initDataType") >>= fromJSValUnchecked))

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

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

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

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

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

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

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

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

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

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

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

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

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-audio MediaCapabilitiesKeySystemConfiguration.audio specification>
setAudio :: (MonadDOM m) => MediaCapabilitiesKeySystemConfiguration -> KeySystemTrackConfiguration -> m ()
setAudio self val = liftDOM (void (self ^. jss "audio" (toJSVal val)))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-audio MediaCapabilitiesKeySystemConfiguration.audio specification>
getAudio :: (MonadDOM m) => MediaCapabilitiesKeySystemConfiguration -> m (Maybe KeySystemTrackConfiguration)
getAudio self = liftDOM (((self ^. js "audio") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-audio MediaCapabilitiesKeySystemConfiguration.audio specification>
getAudioUnsafe :: (MonadDOM m, HasCallStack) => MediaCapabilitiesKeySystemConfiguration -> m KeySystemTrackConfiguration
getAudioUnsafe self = liftDOM ((((self ^. js "audio") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-audio MediaCapabilitiesKeySystemConfiguration.audio specification>
getAudioUnchecked :: (MonadDOM m) => MediaCapabilitiesKeySystemConfiguration -> m KeySystemTrackConfiguration
getAudioUnchecked self = liftDOM (((self ^. js "audio") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-video MediaCapabilitiesKeySystemConfiguration.video specification>
setVideo :: (MonadDOM m) => MediaCapabilitiesKeySystemConfiguration -> KeySystemTrackConfiguration -> m ()
setVideo self val = liftDOM (void (self ^. jss "video" (toJSVal val)))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-video MediaCapabilitiesKeySystemConfiguration.video specification>
getVideo :: (MonadDOM m) => MediaCapabilitiesKeySystemConfiguration -> m (Maybe KeySystemTrackConfiguration)
getVideo self = liftDOM (((self ^. js "video") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-video MediaCapabilitiesKeySystemConfiguration.video specification>
getVideoUnsafe :: (MonadDOM m, HasCallStack) => MediaCapabilitiesKeySystemConfiguration -> m KeySystemTrackConfiguration
getVideoUnsafe self = liftDOM ((((self ^. js "video") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-mediacapabilitieskeysystemconfiguration-video MediaCapabilitiesKeySystemConfiguration.video specification>
getVideoUnchecked :: (MonadDOM m) => MediaCapabilitiesKeySystemConfiguration -> m KeySystemTrackConfiguration
getVideoUnchecked self = liftDOM (((self ^. js "video") >>= fromJSValUnchecked))