Animation.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE JavaScriptFFI #-}
-- For HasCallStack compatibility
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
module GHCJS.DOM.JSFFI.Generated.Animation
       (js_newAnimation, newAnimation, js_getEffect, getEffect,
        getEffectUnsafe, getEffectUnchecked, js_getTimeline, getTimeline,
        getTimelineUnsafe, getTimelineUnchecked, Animation(..),
        gTypeAnimation)
       where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull, jsUndefined)
import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import Data.Traversable (mapM)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums
 
foreign import javascript unsafe
        "(($1, $2) => { return new window[\"Animation\"]($1, $2); })" js_newAnimation ::
        Optional AnimationEffect ->
          Optional AnimationTimeline -> IO Animation

-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation Mozilla Animation documentation> 
newAnimation ::
             (MonadIO m, IsAnimationEffect effect,
              IsAnimationTimeline timeline) =>
               Maybe effect -> Maybe timeline -> m Animation
newAnimation effect timeline
  = liftIO
      (js_newAnimation (maybeToOptional (fmap toAnimationEffect effect))
         (maybeToOptional (fmap toAnimationTimeline timeline)))
 
foreign import javascript unsafe "(($1) => { return $1[\"effect\"]; })" js_getEffect ::
        Animation -> IO (Nullable AnimationEffect)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> 
getEffect :: (MonadIO m) => Animation -> m (Maybe AnimationEffect)
getEffect self = liftIO (nullableToMaybe <$> (js_getEffect self))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> 
getEffectUnsafe ::
                (MonadIO m, HasCallStack) => Animation -> m AnimationEffect
getEffectUnsafe self
  = liftIO
      ((nullableToMaybe <$> (js_getEffect self)) >>=
         maybe (Prelude.error "Nothing to return") return)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> 
getEffectUnchecked :: (MonadIO m) => Animation -> m AnimationEffect
getEffectUnchecked self
  = liftIO (fromJust . nullableToMaybe <$> (js_getEffect self))
 
foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })" js_getTimeline
        :: Animation -> IO (Nullable AnimationTimeline)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> 
getTimeline ::
            (MonadIO m) => Animation -> m (Maybe AnimationTimeline)
getTimeline self
  = liftIO (nullableToMaybe <$> (js_getTimeline self))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> 
getTimelineUnsafe ::
                  (MonadIO m, HasCallStack) => Animation -> m AnimationTimeline
getTimelineUnsafe self
  = liftIO
      ((nullableToMaybe <$> (js_getTimeline self)) >>=
         maybe (Prelude.error "Nothing to return") return)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> 
getTimelineUnchecked ::
                     (MonadIO m) => Animation -> m AnimationTimeline
getTimelineUnchecked self
  = liftIO (fromJust . nullableToMaybe <$> (js_getTimeline self))