ConstrainPoint2DParameters.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.ConstrainPoint2DParameters
       (newConstrainPoint2DParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainPoint2DParameters(..), gTypeConstrainPoint2DParameters)
       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-constrainpoint2dparameters ConstrainPoint2DParameters specification>
newConstrainPoint2DParameters :: (MonadDOM m) => m ConstrainPoint2DParameters
newConstrainPoint2DParameters = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>
setExact :: (MonadDOM m) => ConstrainPoint2DParameters -> [Point2D] -> m ()
setExact self val = liftDOM (void (self ^. jss "exact" (toJSVal val)))

-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>
getExact :: (MonadDOM m) => ConstrainPoint2DParameters -> m (Maybe [Point2D])
getExact self = liftDOM (((self ^. js "exact") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>
getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainPoint2DParameters -> m [Point2D]
getExactUnsafe self = liftDOM ((((self ^. js "exact") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>
getExactUnchecked :: (MonadDOM m) => ConstrainPoint2DParameters -> m [Point2D]
getExactUnchecked self = liftDOM (((self ^. js "exact") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>
setIdeal :: (MonadDOM m) => ConstrainPoint2DParameters -> [Point2D] -> m ()
setIdeal self val = liftDOM (void (self ^. jss "ideal" (toJSVal val)))

-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>
getIdeal :: (MonadDOM m) => ConstrainPoint2DParameters -> m (Maybe [Point2D])
getIdeal self = liftDOM (((self ^. js "ideal") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>
getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainPoint2DParameters -> m [Point2D]
getIdealUnsafe self = liftDOM ((((self ^. js "ideal") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>
getIdealUnchecked :: (MonadDOM m) => ConstrainPoint2DParameters -> m [Point2D]
getIdealUnchecked self = liftDOM (((self ^. js "ideal") >>= fromJSValUnchecked))