MediaTrackConstraints.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit.
module JSDOM.Generated.MediaTrackConstraints
       (newMediaTrackConstraints, setAdvanced, getAdvanced, getAdvancedUnsafe, getAdvancedUnchecked, MediaTrackConstraints(..), gTypeMediaTrackConstraints)
       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/mediacapture-main/#dom-mediatrackconstraints MediaTrackConstraints specification>
newMediaTrackConstraints :: (MonadDOM m) => m MediaTrackConstraints
newMediaTrackConstraints = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-main/#dom-mediatrackconstraints-advanced MediaTrackConstraints.advanced specification>
setAdvanced :: (MonadDOM m, IsMediaTrackConstraintSet val) => MediaTrackConstraints -> [val] -> m ()
setAdvanced self val = liftDOM (void (self ^. jss "advanced" (toJSVal val)))

-- | <https://w3c.github.io/mediacapture-main/#dom-mediatrackconstraints-advanced MediaTrackConstraints.advanced specification>
getAdvanced :: (MonadDOM m) => MediaTrackConstraints -> m (Maybe [MediaTrackConstraintSet])
getAdvanced self = liftDOM (((self ^. js "advanced") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-main/#dom-mediatrackconstraints-advanced MediaTrackConstraints.advanced specification>
getAdvancedUnsafe :: (MonadDOM m, HasCallStack) => MediaTrackConstraints -> m [MediaTrackConstraintSet]
getAdvancedUnsafe self = liftDOM ((((self ^. js "advanced") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-main/#dom-mediatrackconstraints-advanced MediaTrackConstraints.advanced specification>
getAdvancedUnchecked :: (MonadDOM m) => MediaTrackConstraints -> m [MediaTrackConstraintSet]
getAdvancedUnchecked self = liftDOM (((self ^. js "advanced") >>= fromJSValUnchecked))