ComputedEffectTiming.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from web-animations-1 (webref). Do not edit.
module JSDOM.Generated.ComputedEffectTiming
       (newComputedEffectTiming, setProgress, getProgress, getProgressUnsafe, getProgressUnchecked, setCurrentIteration, getCurrentIteration, getCurrentIterationUnsafe, getCurrentIterationUnchecked, setStartTime, getStartTime, getStartTimeUnsafe, getStartTimeUnchecked, setEndTime, getEndTime, getEndTimeUnsafe, getEndTimeUnchecked, setActiveDuration, getActiveDuration, getActiveDurationUnsafe, getActiveDurationUnchecked, setLocalTime, getLocalTime, getLocalTimeUnsafe, getLocalTimeUnchecked, ComputedEffectTiming(..), gTypeComputedEffectTiming)
       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://drafts.csswg.org/web-animations-1/#dictdef-computedeffecttiming ComputedEffectTiming specification>
newComputedEffectTiming :: (MonadDOM m) => m ComputedEffectTiming
newComputedEffectTiming = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>
setProgress :: (MonadDOM m) => ComputedEffectTiming -> Maybe Double -> m ()
setProgress self val = liftDOM (void (self ^. jss "progress" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>
getProgress :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe Double)
getProgress self = liftDOM (((self ^. js "progress") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>
getProgressUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m Double
getProgressUnsafe self = liftDOM ((((self ^. js "progress") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>
getProgressUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m Double
getProgressUnchecked self = liftDOM (((self ^. js "progress") >>= valToNumber))

-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>
setCurrentIteration :: (MonadDOM m) => ComputedEffectTiming -> Maybe Double -> m ()
setCurrentIteration self val = liftDOM (void (self ^. jss "currentIteration" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>
getCurrentIteration :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe Double)
getCurrentIteration self = liftDOM (((self ^. js "currentIteration") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>
getCurrentIterationUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m Double
getCurrentIterationUnsafe self = liftDOM ((((self ^. js "currentIteration") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>
getCurrentIterationUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m Double
getCurrentIterationUnchecked self = liftDOM (((self ^. js "currentIteration") >>= valToNumber))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>
setStartTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m ()
setStartTime self val = liftDOM (void (self ^. jss "startTime" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>
getStartTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)
getStartTime self = liftDOM (((self ^. js "startTime") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>
getStartTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish
getStartTimeUnsafe self = liftDOM ((((self ^. js "startTime") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>
getStartTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish
getStartTimeUnchecked self = liftDOM (((self ^. js "startTime") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>
setEndTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m ()
setEndTime self val = liftDOM (void (self ^. jss "endTime" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>
getEndTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)
getEndTime self = liftDOM (((self ^. js "endTime") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>
getEndTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish
getEndTimeUnsafe self = liftDOM ((((self ^. js "endTime") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>
getEndTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish
getEndTimeUnchecked self = liftDOM (((self ^. js "endTime") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>
setActiveDuration :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m ()
setActiveDuration self val = liftDOM (void (self ^. jss "activeDuration" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>
getActiveDuration :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)
getActiveDuration self = liftDOM (((self ^. js "activeDuration") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>
getActiveDurationUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish
getActiveDurationUnsafe self = liftDOM ((((self ^. js "activeDuration") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>
getActiveDurationUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish
getActiveDurationUnchecked self = liftDOM (((self ^. js "activeDuration") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>
setLocalTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> Maybe val -> m ()
setLocalTime self val = liftDOM (void (self ^. jss "localTime" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>
getLocalTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)
getLocalTime self = liftDOM (((self ^. js "localTime") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>
getLocalTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish
getLocalTimeUnsafe self = liftDOM ((((self ^. js "localTime") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>
getLocalTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish
getLocalTimeUnchecked self = liftDOM (((self ^. js "localTime") >>= fromJSValUnchecked))