DeviceMotionEventRotationRateInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from orientation-event (webref). Do not edit.
module JSDOM.Generated.DeviceMotionEventRotationRateInit
       (newDeviceMotionEventRotationRateInit, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setBeta, getBeta, getBetaUnsafe, getBetaUnchecked, setGamma, getGamma, getGammaUnsafe, getGammaUnchecked, DeviceMotionEventRotationRateInit(..), gTypeDeviceMotionEventRotationRateInit)
       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/deviceorientation/#dictdef-devicemotioneventrotationrateinit DeviceMotionEventRotationRateInit specification>
newDeviceMotionEventRotationRateInit :: (MonadDOM m) => m DeviceMotionEventRotationRateInit
newDeviceMotionEventRotationRateInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>
setAlpha :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m ()
setAlpha self val = liftDOM (void (self ^. jss "alpha" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>
getAlpha :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)
getAlpha self = liftDOM (((self ^. js "alpha") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>
getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double
getAlphaUnsafe self = liftDOM ((((self ^. js "alpha") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>
getAlphaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double
getAlphaUnchecked self = liftDOM (((self ^. js "alpha") >>= valToNumber))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>
setBeta :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m ()
setBeta self val = liftDOM (void (self ^. jss "beta" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>
getBeta :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)
getBeta self = liftDOM (((self ^. js "beta") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>
getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double
getBetaUnsafe self = liftDOM ((((self ^. js "beta") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>
getBetaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double
getBetaUnchecked self = liftDOM (((self ^. js "beta") >>= valToNumber))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>
setGamma :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m ()
setGamma self val = liftDOM (void (self ^. jss "gamma" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>
getGamma :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)
getGamma self = liftDOM (((self ^. js "gamma") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>
getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double
getGammaUnsafe self = liftDOM ((((self ^. js "gamma") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>
getGammaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double
getGammaUnchecked self = liftDOM (((self ^. js "gamma") >>= valToNumber))