{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MutationRecord (js_getType, getType, js_getTarget, getTarget, getTargetUnsafe, getTargetUnchecked, js_getAddedNodes, getAddedNodes, getAddedNodesUnsafe, getAddedNodesUnchecked, js_getRemovedNodes, getRemovedNodes, getRemovedNodesUnsafe, getRemovedNodesUnchecked, js_getPreviousSibling, getPreviousSibling, getPreviousSiblingUnsafe, getPreviousSiblingUnchecked, js_getNextSibling, getNextSibling, getNextSiblingUnsafe, getNextSiblingUnchecked, js_getAttributeName, getAttributeName, getAttributeNameUnsafe, getAttributeNameUnchecked, js_getAttributeNamespace, getAttributeNamespace, getAttributeNamespaceUnsafe, getAttributeNamespaceUnchecked, js_getOldValue, getOldValue, getOldValueUnsafe, getOldValueUnchecked, MutationRecord(..), gTypeMutationRecord) 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[\"type\"]" js_getType :: MutationRecord -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => MutationRecord -> m result getType self = liftIO (fromJSString <$> (js_getType (self))) foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: MutationRecord -> IO (Nullable Node) -- | getTarget :: (MonadIO m) => MutationRecord -> m (Maybe Node) getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self))) -- | getTargetUnsafe :: (MonadIO m, HasCallStack) => MutationRecord -> m Node getTargetUnsafe self = liftIO ((nullableToMaybe <$> (js_getTarget (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getTargetUnchecked :: (MonadIO m) => MutationRecord -> m Node getTargetUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getTarget (self))) foreign import javascript unsafe "$1[\"addedNodes\"]" js_getAddedNodes :: MutationRecord -> IO (Nullable NodeList) -- | getAddedNodes :: (MonadIO m) => MutationRecord -> m (Maybe NodeList) getAddedNodes self = liftIO (nullableToMaybe <$> (js_getAddedNodes (self))) -- | getAddedNodesUnsafe :: (MonadIO m, HasCallStack) => MutationRecord -> m NodeList getAddedNodesUnsafe self = liftIO ((nullableToMaybe <$> (js_getAddedNodes (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getAddedNodesUnchecked :: (MonadIO m) => MutationRecord -> m NodeList getAddedNodesUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getAddedNodes (self))) foreign import javascript unsafe "$1[\"removedNodes\"]" js_getRemovedNodes :: MutationRecord -> IO (Nullable NodeList) -- | getRemovedNodes :: (MonadIO m) => MutationRecord -> m (Maybe NodeList) getRemovedNodes self = liftIO (nullableToMaybe <$> (js_getRemovedNodes (self))) -- | getRemovedNodesUnsafe :: (MonadIO m, HasCallStack) => MutationRecord -> m NodeList getRemovedNodesUnsafe self = liftIO ((nullableToMaybe <$> (js_getRemovedNodes (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRemovedNodesUnchecked :: (MonadIO m) => MutationRecord -> m NodeList getRemovedNodesUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getRemovedNodes (self))) foreign import javascript unsafe "$1[\"previousSibling\"]" js_getPreviousSibling :: MutationRecord -> IO (Nullable Node) -- | getPreviousSibling :: (MonadIO m) => MutationRecord -> m (Maybe Node) getPreviousSibling self = liftIO (nullableToMaybe <$> (js_getPreviousSibling (self))) -- | getPreviousSiblingUnsafe :: (MonadIO m, HasCallStack) => MutationRecord -> m Node getPreviousSiblingUnsafe self = liftIO ((nullableToMaybe <$> (js_getPreviousSibling (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getPreviousSiblingUnchecked :: (MonadIO m) => MutationRecord -> m Node getPreviousSiblingUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getPreviousSibling (self))) foreign import javascript unsafe "$1[\"nextSibling\"]" js_getNextSibling :: MutationRecord -> IO (Nullable Node) -- | getNextSibling :: (MonadIO m) => MutationRecord -> m (Maybe Node) getNextSibling self = liftIO (nullableToMaybe <$> (js_getNextSibling (self))) -- | getNextSiblingUnsafe :: (MonadIO m, HasCallStack) => MutationRecord -> m Node getNextSiblingUnsafe self = liftIO ((nullableToMaybe <$> (js_getNextSibling (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getNextSiblingUnchecked :: (MonadIO m) => MutationRecord -> m Node getNextSiblingUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getNextSibling (self))) foreign import javascript unsafe "$1[\"attributeName\"]" js_getAttributeName :: MutationRecord -> IO (Nullable JSString) -- | getAttributeName :: (MonadIO m, FromJSString result) => MutationRecord -> m (Maybe result) getAttributeName self = liftIO (fromMaybeJSString <$> (js_getAttributeName (self))) -- | getAttributeNameUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => MutationRecord -> m result getAttributeNameUnsafe self = liftIO ((fromMaybeJSString <$> (js_getAttributeName (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributeNameUnchecked :: (MonadIO m, FromJSString result) => MutationRecord -> m result getAttributeNameUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getAttributeName (self))) foreign import javascript unsafe "$1[\"attributeNamespace\"]" js_getAttributeNamespace :: MutationRecord -> IO (Nullable JSString) -- | getAttributeNamespace :: (MonadIO m, FromJSString result) => MutationRecord -> m (Maybe result) getAttributeNamespace self = liftIO (fromMaybeJSString <$> (js_getAttributeNamespace (self))) -- | getAttributeNamespaceUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => MutationRecord -> m result getAttributeNamespaceUnsafe self = liftIO ((fromMaybeJSString <$> (js_getAttributeNamespace (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributeNamespaceUnchecked :: (MonadIO m, FromJSString result) => MutationRecord -> m result getAttributeNamespaceUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getAttributeNamespace (self))) foreign import javascript unsafe "$1[\"oldValue\"]" js_getOldValue :: MutationRecord -> IO (Nullable JSString) -- | getOldValue :: (MonadIO m, FromJSString result) => MutationRecord -> m (Maybe result) getOldValue self = liftIO (fromMaybeJSString <$> (js_getOldValue (self))) -- | getOldValueUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => MutationRecord -> m result getOldValueUnsafe self = liftIO ((fromMaybeJSString <$> (js_getOldValue (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getOldValueUnchecked :: (MonadIO m, FromJSString result) => MutationRecord -> m result getOldValueUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getOldValue (self)))