TransitionEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from css-transitions-1 (webref). Do not edit.
module JSDOM.Generated.TransitionEvent
       (newTransitionEvent, getPropertyName, getElapsedTime, getPseudoElement, getAnimation, getAnimationUnsafe, getAnimationUnchecked, TransitionEvent(..), gTypeTransitionEvent)
       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/TransitionEvent/TransitionEvent MDN TransitionEvent. documentation>
newTransitionEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe TransitionEventInit -> m TransitionEvent
newTransitionEvent type' transitionEventInitDict = liftDOM (((new (jsg "TransitionEvent") [toJSVal type', P.maybe (P.return jsUndefined) toJSVal transitionEventInitDict]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TransitionEvent/propertyName MDN TransitionEvent.propertyName documentation>
getPropertyName :: (MonadDOM m, FromJSString result) => TransitionEvent -> m result
getPropertyName self = liftDOM (((self ^. js "propertyName") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TransitionEvent/elapsedTime MDN TransitionEvent.elapsedTime documentation>
getElapsedTime :: (MonadDOM m) => TransitionEvent -> m Double
getElapsedTime self = liftDOM (((self ^. js "elapsedTime") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/TransitionEvent/pseudoElement MDN TransitionEvent.pseudoElement documentation>
getPseudoElement :: (MonadDOM m, FromJSString result) => TransitionEvent -> m result
getPseudoElement self = liftDOM (((self ^. js "pseudoElement") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TransitionEvent/animation MDN TransitionEvent.animation documentation>
getAnimation :: (MonadDOM m) => TransitionEvent -> m (Maybe CSSTransition)
getAnimation self = liftDOM (((self ^. js "animation") >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/TransitionEvent/animation MDN TransitionEvent.animation documentation>
getAnimationUnchecked :: (MonadDOM m) => TransitionEvent -> m CSSTransition
getAnimationUnchecked self = liftDOM (((self ^. js "animation") >>= fromJSValUnchecked))