GetAnimationsOptions.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.GetAnimationsOptions
       (newGetAnimationsOptions, setSubtree, getSubtree, getSubtreeUnsafe, getSubtreeUnchecked, setPseudoElement, getPseudoElement, getPseudoElementUnsafe, getPseudoElementUnchecked, GetAnimationsOptions(..), gTypeGetAnimationsOptions)
       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-getanimationsoptions GetAnimationsOptions specification>
newGetAnimationsOptions :: (MonadDOM m) => m GetAnimationsOptions
newGetAnimationsOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-getanimationsoptions-subtree GetAnimationsOptions.subtree specification>
setSubtree :: (MonadDOM m) => GetAnimationsOptions -> Bool -> m ()
setSubtree self val = liftDOM (void (self ^. jss "subtree" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-1/#dom-getanimationsoptions-subtree GetAnimationsOptions.subtree specification>
getSubtree :: (MonadDOM m) => GetAnimationsOptions -> m (Maybe Bool)
getSubtree self = liftDOM (((self ^. js "subtree") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/web-animations-1/#dom-getanimationsoptions-subtree GetAnimationsOptions.subtree specification>
getSubtreeUnsafe :: (MonadDOM m, HasCallStack) => GetAnimationsOptions -> m Bool
getSubtreeUnsafe self = liftDOM ((((self ^. js "subtree") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-1/#dom-getanimationsoptions-subtree GetAnimationsOptions.subtree specification>
getSubtreeUnchecked :: (MonadDOM m) => GetAnimationsOptions -> m Bool
getSubtreeUnchecked self = liftDOM (((self ^. js "subtree") >>= valToBool))

-- | <https://drafts.csswg.org/web-animations-1/#dom-getanimationsoptions-pseudoelement GetAnimationsOptions.pseudoElement specification>
setPseudoElement :: (MonadDOM m, ToJSString val) => GetAnimationsOptions -> Maybe val -> m ()
setPseudoElement self val = liftDOM (void (self ^. jss "pseudoElement" (toJSVal val)))

-- | <https://drafts.csswg.org/web-animations-1/#dom-getanimationsoptions-pseudoelement GetAnimationsOptions.pseudoElement specification>
getPseudoElement :: (MonadDOM m, FromJSString result) => GetAnimationsOptions -> m (Maybe result)
getPseudoElement self = liftDOM (((self ^. js "pseudoElement") >>= fromMaybeJSString))

-- | <https://drafts.csswg.org/web-animations-1/#dom-getanimationsoptions-pseudoelement GetAnimationsOptions.pseudoElement specification>
getPseudoElementUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => GetAnimationsOptions -> m result
getPseudoElementUnsafe self = liftDOM ((((self ^. js "pseudoElement") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/web-animations-1/#dom-getanimationsoptions-pseudoelement GetAnimationsOptions.pseudoElement specification>
getPseudoElementUnchecked :: (MonadDOM m, FromJSString result) => GetAnimationsOptions -> m result
getPseudoElementUnchecked self = liftDOM (((self ^. js "pseudoElement") >>= fromJSValUnchecked))