AnimationTimeline.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.AnimationTimeline
       (getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, getDuration, getDurationUnsafe, getDurationUnchecked, AnimationTimeline(..), gTypeAnimationTimeline, IsAnimationTimeline, toAnimationTimeline)
       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://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>
getCurrentTime :: (MonadDOM m, IsAnimationTimeline self) => self -> m (Maybe CSSNumberish)
getCurrentTime self = liftDOM ((((Types.toAnimationTimeline self) ^. js "currentTime") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>
getCurrentTimeUnsafe :: (MonadDOM m, IsAnimationTimeline self, HasCallStack) => self -> m CSSNumberish
getCurrentTimeUnsafe self = liftDOM (((((Types.toAnimationTimeline self) ^. js "currentTime") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>
getCurrentTimeUnchecked :: (MonadDOM m, IsAnimationTimeline self) => self -> m CSSNumberish
getCurrentTimeUnchecked self = liftDOM ((((Types.toAnimationTimeline self) ^. js "currentTime") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>
getDuration :: (MonadDOM m, IsAnimationTimeline self) => self -> m (Maybe CSSNumberish)
getDuration self = liftDOM ((((Types.toAnimationTimeline self) ^. js "duration") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>
getDurationUnsafe :: (MonadDOM m, IsAnimationTimeline self, HasCallStack) => self -> m CSSNumberish
getDurationUnsafe self = liftDOM (((((Types.toAnimationTimeline self) ^. js "duration") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>
getDurationUnchecked :: (MonadDOM m, IsAnimationTimeline self) => self -> m CSSNumberish
getDurationUnchecked self = liftDOM ((((Types.toAnimationTimeline self) ^. js "duration") >>= fromJSValUnchecked))