MediaDecodingConfiguration.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.MediaDecodingConfiguration
       (newMediaDecodingConfiguration, setType, getType, setKeySystemConfiguration, getKeySystemConfiguration, getKeySystemConfigurationUnsafe, getKeySystemConfigurationUnchecked, MediaDecodingConfiguration(..), gTypeMediaDecodingConfiguration)
       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-mediadecodingconfiguration MediaDecodingConfiguration specification>
newMediaDecodingConfiguration :: (MonadDOM m) => MediaDecodingType -> m MediaDecodingConfiguration
newMediaDecodingConfiguration type' = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "type" (toJSVal type')) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-mediadecodingconfiguration-type MediaDecodingConfiguration.type specification>
setType :: (MonadDOM m) => MediaDecodingConfiguration -> MediaDecodingType -> m ()
setType self val = liftDOM (void (self ^. jss "type" (toJSVal val)))

-- | <https://w3c.github.io/media-capabilities/#dom-mediadecodingconfiguration-type MediaDecodingConfiguration.type specification>
getType :: (MonadDOM m) => MediaDecodingConfiguration -> m MediaDecodingType
getType self = liftDOM (((self ^. js "type") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-mediadecodingconfiguration-keysystemconfiguration MediaDecodingConfiguration.keySystemConfiguration specification>
setKeySystemConfiguration :: (MonadDOM m) => MediaDecodingConfiguration -> MediaCapabilitiesKeySystemConfiguration -> m ()
setKeySystemConfiguration self val = liftDOM (void (self ^. jss "keySystemConfiguration" (toJSVal val)))

-- | <https://w3c.github.io/media-capabilities/#dom-mediadecodingconfiguration-keysystemconfiguration MediaDecodingConfiguration.keySystemConfiguration specification>
getKeySystemConfiguration :: (MonadDOM m) => MediaDecodingConfiguration -> m (Maybe MediaCapabilitiesKeySystemConfiguration)
getKeySystemConfiguration self = liftDOM (((self ^. js "keySystemConfiguration") >>= fromJSValUnchecked))

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

-- | <https://w3c.github.io/media-capabilities/#dom-mediadecodingconfiguration-keysystemconfiguration MediaDecodingConfiguration.keySystemConfiguration specification>
getKeySystemConfigurationUnchecked :: (MonadDOM m) => MediaDecodingConfiguration -> m MediaCapabilitiesKeySystemConfiguration
getKeySystemConfigurationUnchecked self = liftDOM (((self ^. js "keySystemConfiguration") >>= fromJSValUnchecked))