MediaSettingsRange.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from image-capture (webref). Do not edit.
module JSDOM.Generated.MediaSettingsRange
       (newMediaSettingsRange, setMax, getMax, getMaxUnsafe, getMaxUnchecked, setMin, getMin, getMinUnsafe, getMinUnchecked, setStep, getStep, getStepUnsafe, getStepUnchecked, MediaSettingsRange(..), gTypeMediaSettingsRange)
       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-image/#dictdef-mediasettingsrange MediaSettingsRange specification>
newMediaSettingsRange :: (MonadDOM m) => m MediaSettingsRange
newMediaSettingsRange = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-max MediaSettingsRange.max specification>
setMax :: (MonadDOM m) => MediaSettingsRange -> Double -> m ()
setMax self val = liftDOM (void (self ^. jss "max" (toJSVal val)))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-max MediaSettingsRange.max specification>
getMax :: (MonadDOM m) => MediaSettingsRange -> m (Maybe Double)
getMax self = liftDOM (((self ^. js "max") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-max MediaSettingsRange.max specification>
getMaxUnsafe :: (MonadDOM m, HasCallStack) => MediaSettingsRange -> m Double
getMaxUnsafe self = liftDOM ((((self ^. js "max") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-max MediaSettingsRange.max specification>
getMaxUnchecked :: (MonadDOM m) => MediaSettingsRange -> m Double
getMaxUnchecked self = liftDOM (((self ^. js "max") >>= valToNumber))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-min MediaSettingsRange.min specification>
setMin :: (MonadDOM m) => MediaSettingsRange -> Double -> m ()
setMin self val = liftDOM (void (self ^. jss "min" (toJSVal val)))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-min MediaSettingsRange.min specification>
getMin :: (MonadDOM m) => MediaSettingsRange -> m (Maybe Double)
getMin self = liftDOM (((self ^. js "min") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-min MediaSettingsRange.min specification>
getMinUnsafe :: (MonadDOM m, HasCallStack) => MediaSettingsRange -> m Double
getMinUnsafe self = liftDOM ((((self ^. js "min") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-min MediaSettingsRange.min specification>
getMinUnchecked :: (MonadDOM m) => MediaSettingsRange -> m Double
getMinUnchecked self = liftDOM (((self ^. js "min") >>= valToNumber))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-step MediaSettingsRange.step specification>
setStep :: (MonadDOM m) => MediaSettingsRange -> Double -> m ()
setStep self val = liftDOM (void (self ^. jss "step" (toJSVal val)))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-step MediaSettingsRange.step specification>
getStep :: (MonadDOM m) => MediaSettingsRange -> m (Maybe Double)
getStep self = liftDOM (((self ^. js "step") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-step MediaSettingsRange.step specification>
getStepUnsafe :: (MonadDOM m, HasCallStack) => MediaSettingsRange -> m Double
getStepUnsafe self = liftDOM ((((self ^. js "step") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-image/#dom-mediasettingsrange-step MediaSettingsRange.step specification>
getStepUnchecked :: (MonadDOM m) => MediaSettingsRange -> m Double
getStepUnchecked self = liftDOM (((self ^. js "step") >>= valToNumber))