GamepadEffectParameters.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from gamepad (webref). Do not edit.
module JSDOM.Generated.GamepadEffectParameters
       (newGamepadEffectParameters, setDuration, getDuration, getDurationUnsafe, getDurationUnchecked, setStartDelay, getStartDelay, getStartDelayUnsafe, getStartDelayUnchecked, setStrongMagnitude, getStrongMagnitude, getStrongMagnitudeUnsafe, getStrongMagnitudeUnchecked, setWeakMagnitude, getWeakMagnitude, getWeakMagnitudeUnsafe, getWeakMagnitudeUnchecked, setLeftTrigger, getLeftTrigger, getLeftTriggerUnsafe, getLeftTriggerUnchecked, setRightTrigger, getRightTrigger, getRightTriggerUnsafe, getRightTriggerUnchecked, GamepadEffectParameters(..), gTypeGamepadEffectParameters)
       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/gamepad/#dom-gamepadeffectparameters GamepadEffectParameters specification>
newGamepadEffectParameters :: (MonadDOM m) => m GamepadEffectParameters
newGamepadEffectParameters = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-duration GamepadEffectParameters.duration specification>
setDuration :: (MonadDOM m) => GamepadEffectParameters -> Word53 -> m ()
setDuration self val = liftDOM (void (self ^. jss "duration" (toJSVal val)))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-duration GamepadEffectParameters.duration specification>
getDuration :: (MonadDOM m) => GamepadEffectParameters -> m (Maybe Word53)
getDuration self = liftDOM (((self ^. js "duration") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-duration GamepadEffectParameters.duration specification>
getDurationUnsafe :: (MonadDOM m, HasCallStack) => GamepadEffectParameters -> m Word53
getDurationUnsafe self = liftDOM ((((self ^. js "duration") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-duration GamepadEffectParameters.duration specification>
getDurationUnchecked :: (MonadDOM m) => GamepadEffectParameters -> m Word53
getDurationUnchecked self = liftDOM (((self ^. js "duration") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-startdelay GamepadEffectParameters.startDelay specification>
setStartDelay :: (MonadDOM m) => GamepadEffectParameters -> Word53 -> m ()
setStartDelay self val = liftDOM (void (self ^. jss "startDelay" (toJSVal val)))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-startdelay GamepadEffectParameters.startDelay specification>
getStartDelay :: (MonadDOM m) => GamepadEffectParameters -> m (Maybe Word53)
getStartDelay self = liftDOM (((self ^. js "startDelay") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-startdelay GamepadEffectParameters.startDelay specification>
getStartDelayUnsafe :: (MonadDOM m, HasCallStack) => GamepadEffectParameters -> m Word53
getStartDelayUnsafe self = liftDOM ((((self ^. js "startDelay") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-startdelay GamepadEffectParameters.startDelay specification>
getStartDelayUnchecked :: (MonadDOM m) => GamepadEffectParameters -> m Word53
getStartDelayUnchecked self = liftDOM (((self ^. js "startDelay") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-strongmagnitude GamepadEffectParameters.strongMagnitude specification>
setStrongMagnitude :: (MonadDOM m) => GamepadEffectParameters -> Double -> m ()
setStrongMagnitude self val = liftDOM (void (self ^. jss "strongMagnitude" (toJSVal val)))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-strongmagnitude GamepadEffectParameters.strongMagnitude specification>
getStrongMagnitude :: (MonadDOM m) => GamepadEffectParameters -> m (Maybe Double)
getStrongMagnitude self = liftDOM (((self ^. js "strongMagnitude") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-strongmagnitude GamepadEffectParameters.strongMagnitude specification>
getStrongMagnitudeUnsafe :: (MonadDOM m, HasCallStack) => GamepadEffectParameters -> m Double
getStrongMagnitudeUnsafe self = liftDOM ((((self ^. js "strongMagnitude") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-strongmagnitude GamepadEffectParameters.strongMagnitude specification>
getStrongMagnitudeUnchecked :: (MonadDOM m) => GamepadEffectParameters -> m Double
getStrongMagnitudeUnchecked self = liftDOM (((self ^. js "strongMagnitude") >>= valToNumber))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-weakmagnitude GamepadEffectParameters.weakMagnitude specification>
setWeakMagnitude :: (MonadDOM m) => GamepadEffectParameters -> Double -> m ()
setWeakMagnitude self val = liftDOM (void (self ^. jss "weakMagnitude" (toJSVal val)))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-weakmagnitude GamepadEffectParameters.weakMagnitude specification>
getWeakMagnitude :: (MonadDOM m) => GamepadEffectParameters -> m (Maybe Double)
getWeakMagnitude self = liftDOM (((self ^. js "weakMagnitude") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-weakmagnitude GamepadEffectParameters.weakMagnitude specification>
getWeakMagnitudeUnsafe :: (MonadDOM m, HasCallStack) => GamepadEffectParameters -> m Double
getWeakMagnitudeUnsafe self = liftDOM ((((self ^. js "weakMagnitude") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-weakmagnitude GamepadEffectParameters.weakMagnitude specification>
getWeakMagnitudeUnchecked :: (MonadDOM m) => GamepadEffectParameters -> m Double
getWeakMagnitudeUnchecked self = liftDOM (((self ^. js "weakMagnitude") >>= valToNumber))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-lefttrigger GamepadEffectParameters.leftTrigger specification>
setLeftTrigger :: (MonadDOM m) => GamepadEffectParameters -> Double -> m ()
setLeftTrigger self val = liftDOM (void (self ^. jss "leftTrigger" (toJSVal val)))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-lefttrigger GamepadEffectParameters.leftTrigger specification>
getLeftTrigger :: (MonadDOM m) => GamepadEffectParameters -> m (Maybe Double)
getLeftTrigger self = liftDOM (((self ^. js "leftTrigger") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-lefttrigger GamepadEffectParameters.leftTrigger specification>
getLeftTriggerUnsafe :: (MonadDOM m, HasCallStack) => GamepadEffectParameters -> m Double
getLeftTriggerUnsafe self = liftDOM ((((self ^. js "leftTrigger") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-lefttrigger GamepadEffectParameters.leftTrigger specification>
getLeftTriggerUnchecked :: (MonadDOM m) => GamepadEffectParameters -> m Double
getLeftTriggerUnchecked self = liftDOM (((self ^. js "leftTrigger") >>= valToNumber))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-righttrigger GamepadEffectParameters.rightTrigger specification>
setRightTrigger :: (MonadDOM m) => GamepadEffectParameters -> Double -> m ()
setRightTrigger self val = liftDOM (void (self ^. jss "rightTrigger" (toJSVal val)))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-righttrigger GamepadEffectParameters.rightTrigger specification>
getRightTrigger :: (MonadDOM m) => GamepadEffectParameters -> m (Maybe Double)
getRightTrigger self = liftDOM (((self ^. js "rightTrigger") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-righttrigger GamepadEffectParameters.rightTrigger specification>
getRightTriggerUnsafe :: (MonadDOM m, HasCallStack) => GamepadEffectParameters -> m Double
getRightTriggerUnsafe self = liftDOM ((((self ^. js "rightTrigger") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/gamepad/#dom-gamepadeffectparameters-righttrigger GamepadEffectParameters.rightTrigger specification>
getRightTriggerUnchecked :: (MonadDOM m) => GamepadEffectParameters -> m Double
getRightTriggerUnchecked self = liftDOM (((self ^. js "rightTrigger") >>= valToNumber))