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)))