{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule (js_insertRule, insertRule, js_appendRule, appendRule, js_deleteRule, deleteRule, js_findRule, findRule, findRule_, findRuleUnsafe, findRuleUnchecked, js__get, _get, _get_, _getUnsafe, _getUnchecked, js_setName, setName, js_getName, getName, getNameUnsafe, getNameUnchecked, js_getCssRules, getCssRules, getCssRulesUnsafe, getCssRulesUnchecked, CSSKeyframesRule(..), gTypeCSSKeyframesRule) 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) import GHCJS.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 GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"insertRule\"]($2)" js_insertRule :: CSSKeyframesRule -> JSString -> IO () -- | insertRule :: (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () insertRule self rule = liftIO (js_insertRule (self) (toJSString rule)) foreign import javascript unsafe "$1[\"appendRule\"]($2)" js_appendRule :: CSSKeyframesRule -> JSString -> IO () -- | appendRule :: (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () appendRule self rule = liftIO (js_appendRule (self) (toJSString rule)) foreign import javascript unsafe "$1[\"deleteRule\"]($2)" js_deleteRule :: CSSKeyframesRule -> JSString -> IO () -- | deleteRule :: (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () deleteRule self key = liftIO (js_deleteRule (self) (toJSString key)) foreign import javascript unsafe "$1[\"findRule\"]($2)" js_findRule :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule) -- | findRule :: (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule) findRule self key = liftIO (nullableToMaybe <$> (js_findRule (self) (toJSString key))) -- | findRule_ :: (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () findRule_ self key = liftIO (void (js_findRule (self) (toJSString key))) -- | findRuleUnsafe :: (MonadIO m, ToJSString key, HasCallStack) => CSSKeyframesRule -> key -> m CSSKeyframeRule findRuleUnsafe self key = liftIO ((nullableToMaybe <$> (js_findRule (self) (toJSString key))) >>= maybe (Prelude.error "Nothing to return") return) -- | findRuleUnchecked :: (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m CSSKeyframeRule findRuleUnchecked self key = liftIO (fromJust . nullableToMaybe <$> (js_findRule (self) (toJSString key))) foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: CSSKeyframesRule -> Word -> IO (Nullable CSSKeyframeRule) -- | _get :: (MonadIO m) => CSSKeyframesRule -> Word -> m (Maybe CSSKeyframeRule) _get self index = liftIO (nullableToMaybe <$> (js__get (self) index)) -- | _get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m () _get_ self index = liftIO (void (js__get (self) index)) -- | _getUnsafe :: (MonadIO m, HasCallStack) => CSSKeyframesRule -> Word -> m CSSKeyframeRule _getUnsafe self index = liftIO ((nullableToMaybe <$> (js__get (self) index)) >>= maybe (Prelude.error "Nothing to return") return) -- | _getUnchecked :: (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule _getUnchecked self index = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index)) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: CSSKeyframesRule -> Nullable JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => CSSKeyframesRule -> Maybe val -> m () setName self val = liftIO (js_setName (self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: CSSKeyframesRule -> IO (Nullable JSString) -- | getName :: (MonadIO m, FromJSString result) => CSSKeyframesRule -> m (Maybe result) getName self = liftIO (fromMaybeJSString <$> (js_getName (self))) -- | getNameUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => CSSKeyframesRule -> m result getNameUnsafe self = liftIO ((fromMaybeJSString <$> (js_getName (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getNameUnchecked :: (MonadIO m, FromJSString result) => CSSKeyframesRule -> m result getNameUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self))) foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules :: CSSKeyframesRule -> IO (Nullable CSSRuleList) -- | getCssRules :: (MonadIO m) => CSSKeyframesRule -> m (Maybe CSSRuleList) getCssRules self = liftIO (nullableToMaybe <$> (js_getCssRules (self))) -- | getCssRulesUnsafe :: (MonadIO m, HasCallStack) => CSSKeyframesRule -> m CSSRuleList getCssRulesUnsafe self = liftIO ((nullableToMaybe <$> (js_getCssRules (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getCssRulesUnchecked :: (MonadIO m) => CSSKeyframesRule -> m CSSRuleList getCssRulesUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))