AnimationPlaybackEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from web-animations-2 (webref). Do not edit.
module JSDOM.Generated.AnimationPlaybackEvent
       (newAnimationPlaybackEvent, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, getTimelineTime, getTimelineTimeUnsafe, getTimelineTimeUnchecked, AnimationPlaybackEvent(..), gTypeAnimationPlaybackEvent)
       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/AnimationPlaybackEvent/AnimationPlaybackEvent MDN AnimationPlaybackEvent. documentation>
newAnimationPlaybackEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe AnimationPlaybackEventInit -> m AnimationPlaybackEvent
newAnimationPlaybackEvent type' eventInitDict = liftDOM (((new (jsg "AnimationPlaybackEvent") [toJSVal type', P.maybe (P.return jsUndefined) toJSVal eventInitDict]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/currentTime MDN AnimationPlaybackEvent.currentTime documentation>
getCurrentTime :: (MonadDOM m) => AnimationPlaybackEvent -> m (Maybe CSSNumberish)
getCurrentTime self = liftDOM (((self ^. js "currentTime") >>= fromJSValUnchecked))

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

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

-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/timelineTime MDN AnimationPlaybackEvent.timelineTime documentation>
getTimelineTime :: (MonadDOM m) => AnimationPlaybackEvent -> m (Maybe CSSNumberish)
getTimelineTime self = liftDOM (((self ^. js "timelineTime") >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/timelineTime MDN AnimationPlaybackEvent.timelineTime documentation>
getTimelineTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEvent -> m CSSNumberish
getTimelineTimeUnchecked self = liftDOM (((self ^. js "timelineTime") >>= fromJSValUnchecked))