module GHCJS.DOM.JSFFI.Generated.Node
(js_insertBefore, insertBefore, insertBefore_, insertBeforeUnsafe,
insertBeforeUnchecked, js_replaceChild, replaceChild,
replaceChild_, replaceChildUnsafe, replaceChildUnchecked,
js_removeChild, removeChild, removeChild_, removeChildUnsafe,
removeChildUnchecked, js_appendChild, appendChild, appendChild_,
appendChildUnsafe, appendChildUnchecked, js_hasChildNodes,
hasChildNodes, hasChildNodes_, js_cloneNode, cloneNode, cloneNode_,
cloneNodeUnsafe, cloneNodeUnchecked, js_normalize, normalize,
js_isSupported, isSupported, isSupported_, js_isSameNode,
isSameNode, isSameNode_, js_isEqualNode, isEqualNode, isEqualNode_,
js_lookupPrefix, lookupPrefix, lookupPrefix_, lookupPrefixUnsafe,
lookupPrefixUnchecked, js_isDefaultNamespace, isDefaultNamespace,
isDefaultNamespace_, js_lookupNamespaceURI, lookupNamespaceURI,
lookupNamespaceURI_, lookupNamespaceURIUnsafe,
lookupNamespaceURIUnchecked, js_compareDocumentPosition,
compareDocumentPosition, compareDocumentPosition_, js_contains,
contains, contains_, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE,
pattern TEXT_NODE, pattern CDATA_SECTION_NODE,
pattern ENTITY_REFERENCE_NODE, pattern ENTITY_NODE,
pattern PROCESSING_INSTRUCTION_NODE, pattern COMMENT_NODE,
pattern DOCUMENT_NODE, pattern DOCUMENT_TYPE_NODE,
pattern DOCUMENT_FRAGMENT_NODE, pattern NOTATION_NODE,
pattern DOCUMENT_POSITION_DISCONNECTED,
pattern DOCUMENT_POSITION_PRECEDING,
pattern DOCUMENT_POSITION_FOLLOWING,
pattern DOCUMENT_POSITION_CONTAINS,
pattern DOCUMENT_POSITION_CONTAINED_BY,
pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, js_getNodeName,
getNodeName, getNodeNameUnsafe, getNodeNameUnchecked,
js_setNodeValue, setNodeValue, js_getNodeValue, getNodeValue,
getNodeValueUnsafe, getNodeValueUnchecked, js_getNodeType,
getNodeType, js_getParentNode, getParentNode, getParentNodeUnsafe,
getParentNodeUnchecked, js_getChildNodes, getChildNodes,
getChildNodesUnsafe, getChildNodesUnchecked, js_getFirstChild,
getFirstChild, getFirstChildUnsafe, getFirstChildUnchecked,
js_getLastChild, getLastChild, getLastChildUnsafe,
getLastChildUnchecked, js_getPreviousSibling, getPreviousSibling,
getPreviousSiblingUnsafe, getPreviousSiblingUnchecked,
js_getNextSibling, getNextSibling, getNextSiblingUnsafe,
getNextSiblingUnchecked, js_getOwnerDocument, getOwnerDocument,
getOwnerDocumentUnsafe, getOwnerDocumentUnchecked,
js_getNamespaceURI, getNamespaceURI, getNamespaceURIUnsafe,
getNamespaceURIUnchecked, js_setPrefix, setPrefix, js_getPrefix,
getPrefix, getPrefixUnsafe, getPrefixUnchecked, js_getLocalName,
getLocalName, getLocalNameUnsafe, getLocalNameUnchecked,
js_getBaseURI, getBaseURI, getBaseURIUnsafe, getBaseURIUnchecked,
js_setTextContent, setTextContent, js_getTextContent,
getTextContent, getTextContentUnsafe, getTextContentUnchecked,
js_getParentElement, getParentElement, getParentElementUnsafe,
getParentElementUnchecked, Node(..), gTypeNode, IsNode, toNode)
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[\"insertBefore\"]($2, $3)"
js_insertBefore ::
Node -> Nullable Node -> Nullable Node -> IO (Nullable Node)
insertBefore ::
(MonadIO m, IsNode self, IsNode newChild, IsNode refChild) =>
self -> Maybe newChild -> Maybe refChild -> m (Maybe Node)
insertBefore self newChild refChild
= liftIO
(nullableToMaybe <$>
(js_insertBefore (toNode self)
(maybeToNullable (fmap toNode newChild))
(maybeToNullable (fmap toNode refChild))))
insertBefore_ ::
(MonadIO m, IsNode self, IsNode newChild, IsNode refChild) =>
self -> Maybe newChild -> Maybe refChild -> m ()
insertBefore_ self newChild refChild
= liftIO
(void
(js_insertBefore (toNode self)
(maybeToNullable (fmap toNode newChild))
(maybeToNullable (fmap toNode refChild))))
insertBeforeUnsafe ::
(MonadIO m, IsNode self, IsNode newChild, IsNode refChild,
HasCallStack) =>
self -> Maybe newChild -> Maybe refChild -> m Node
insertBeforeUnsafe self newChild refChild
= liftIO
((nullableToMaybe <$>
(js_insertBefore (toNode self)
(maybeToNullable (fmap toNode newChild))
(maybeToNullable (fmap toNode refChild))))
>>= maybe (Prelude.error "Nothing to return") return)
insertBeforeUnchecked ::
(MonadIO m, IsNode self, IsNode newChild, IsNode refChild) =>
self -> Maybe newChild -> Maybe refChild -> m Node
insertBeforeUnchecked self newChild refChild
= liftIO
(fromJust . nullableToMaybe <$>
(js_insertBefore (toNode self)
(maybeToNullable (fmap toNode newChild))
(maybeToNullable (fmap toNode refChild))))
foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)"
js_replaceChild ::
Node -> Nullable Node -> Nullable Node -> IO (Nullable Node)
replaceChild ::
(MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) =>
self -> Maybe newChild -> Maybe oldChild -> m (Maybe Node)
replaceChild self newChild oldChild
= liftIO
(nullableToMaybe <$>
(js_replaceChild (toNode self)
(maybeToNullable (fmap toNode newChild))
(maybeToNullable (fmap toNode oldChild))))
replaceChild_ ::
(MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) =>
self -> Maybe newChild -> Maybe oldChild -> m ()
replaceChild_ self newChild oldChild
= liftIO
(void
(js_replaceChild (toNode self)
(maybeToNullable (fmap toNode newChild))
(maybeToNullable (fmap toNode oldChild))))
replaceChildUnsafe ::
(MonadIO m, IsNode self, IsNode newChild, IsNode oldChild,
HasCallStack) =>
self -> Maybe newChild -> Maybe oldChild -> m Node
replaceChildUnsafe self newChild oldChild
= liftIO
((nullableToMaybe <$>
(js_replaceChild (toNode self)
(maybeToNullable (fmap toNode newChild))
(maybeToNullable (fmap toNode oldChild))))
>>= maybe (Prelude.error "Nothing to return") return)
replaceChildUnchecked ::
(MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) =>
self -> Maybe newChild -> Maybe oldChild -> m Node
replaceChildUnchecked self newChild oldChild
= liftIO
(fromJust . nullableToMaybe <$>
(js_replaceChild (toNode self)
(maybeToNullable (fmap toNode newChild))
(maybeToNullable (fmap toNode oldChild))))
foreign import javascript unsafe "$1[\"removeChild\"]($2)"
js_removeChild :: Node -> Nullable Node -> IO (Nullable Node)
removeChild ::
(MonadIO m, IsNode self, IsNode oldChild) =>
self -> Maybe oldChild -> m (Maybe Node)
removeChild self oldChild
= liftIO
(nullableToMaybe <$>
(js_removeChild (toNode self)
(maybeToNullable (fmap toNode oldChild))))
removeChild_ ::
(MonadIO m, IsNode self, IsNode oldChild) =>
self -> Maybe oldChild -> m ()
removeChild_ self oldChild
= liftIO
(void
(js_removeChild (toNode self)
(maybeToNullable (fmap toNode oldChild))))
removeChildUnsafe ::
(MonadIO m, IsNode self, IsNode oldChild, HasCallStack) =>
self -> Maybe oldChild -> m Node
removeChildUnsafe self oldChild
= liftIO
((nullableToMaybe <$>
(js_removeChild (toNode self)
(maybeToNullable (fmap toNode oldChild))))
>>= maybe (Prelude.error "Nothing to return") return)
removeChildUnchecked ::
(MonadIO m, IsNode self, IsNode oldChild) =>
self -> Maybe oldChild -> m Node
removeChildUnchecked self oldChild
= liftIO
(fromJust . nullableToMaybe <$>
(js_removeChild (toNode self)
(maybeToNullable (fmap toNode oldChild))))
foreign import javascript unsafe "$1[\"appendChild\"]($2)"
js_appendChild :: Node -> Nullable Node -> IO (Nullable Node)
appendChild ::
(MonadIO m, IsNode self, IsNode newChild) =>
self -> Maybe newChild -> m (Maybe Node)
appendChild self newChild
= liftIO
(nullableToMaybe <$>
(js_appendChild (toNode self)
(maybeToNullable (fmap toNode newChild))))
appendChild_ ::
(MonadIO m, IsNode self, IsNode newChild) =>
self -> Maybe newChild -> m ()
appendChild_ self newChild
= liftIO
(void
(js_appendChild (toNode self)
(maybeToNullable (fmap toNode newChild))))
appendChildUnsafe ::
(MonadIO m, IsNode self, IsNode newChild, HasCallStack) =>
self -> Maybe newChild -> m Node
appendChildUnsafe self newChild
= liftIO
((nullableToMaybe <$>
(js_appendChild (toNode self)
(maybeToNullable (fmap toNode newChild))))
>>= maybe (Prelude.error "Nothing to return") return)
appendChildUnchecked ::
(MonadIO m, IsNode self, IsNode newChild) =>
self -> Maybe newChild -> m Node
appendChildUnchecked self newChild
= liftIO
(fromJust . nullableToMaybe <$>
(js_appendChild (toNode self)
(maybeToNullable (fmap toNode newChild))))
foreign import javascript unsafe
"($1[\"hasChildNodes\"]() ? 1 : 0)" js_hasChildNodes ::
Node -> IO Bool
hasChildNodes :: (MonadIO m, IsNode self) => self -> m Bool
hasChildNodes self = liftIO (js_hasChildNodes (toNode self))
hasChildNodes_ :: (MonadIO m, IsNode self) => self -> m ()
hasChildNodes_ self
= liftIO (void (js_hasChildNodes (toNode self)))
foreign import javascript unsafe "$1[\"cloneNode\"]($2)"
js_cloneNode :: Node -> Bool -> IO (Nullable Node)
cloneNode ::
(MonadIO m, IsNode self) => self -> Bool -> m (Maybe Node)
cloneNode self deep
= liftIO (nullableToMaybe <$> (js_cloneNode (toNode self) deep))
cloneNode_ :: (MonadIO m, IsNode self) => self -> Bool -> m ()
cloneNode_ self deep
= liftIO (void (js_cloneNode (toNode self) deep))
cloneNodeUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> Bool -> m Node
cloneNodeUnsafe self deep
= liftIO
((nullableToMaybe <$> (js_cloneNode (toNode self) deep)) >>=
maybe (Prelude.error "Nothing to return") return)
cloneNodeUnchecked ::
(MonadIO m, IsNode self) => self -> Bool -> m Node
cloneNodeUnchecked self deep
= liftIO
(fromJust . nullableToMaybe <$> (js_cloneNode (toNode self) deep))
foreign import javascript unsafe "$1[\"normalize\"]()" js_normalize
:: Node -> IO ()
normalize :: (MonadIO m, IsNode self) => self -> m ()
normalize self = liftIO (js_normalize (toNode self))
foreign import javascript unsafe
"($1[\"isSupported\"]($2,\n$3) ? 1 : 0)" js_isSupported ::
Node -> JSString -> Nullable JSString -> IO Bool
isSupported ::
(MonadIO m, IsNode self, ToJSString feature, ToJSString version) =>
self -> feature -> Maybe version -> m Bool
isSupported self feature version
= liftIO
(js_isSupported (toNode self) (toJSString feature)
(toMaybeJSString version))
isSupported_ ::
(MonadIO m, IsNode self, ToJSString feature, ToJSString version) =>
self -> feature -> Maybe version -> m ()
isSupported_ self feature version
= liftIO
(void
(js_isSupported (toNode self) (toJSString feature)
(toMaybeJSString version)))
foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)"
js_isSameNode :: Node -> Nullable Node -> IO Bool
isSameNode ::
(MonadIO m, IsNode self, IsNode other) =>
self -> Maybe other -> m Bool
isSameNode self other
= liftIO
(js_isSameNode (toNode self) (maybeToNullable (fmap toNode other)))
isSameNode_ ::
(MonadIO m, IsNode self, IsNode other) =>
self -> Maybe other -> m ()
isSameNode_ self other
= liftIO
(void
(js_isSameNode (toNode self)
(maybeToNullable (fmap toNode other))))
foreign import javascript unsafe
"($1[\"isEqualNode\"]($2) ? 1 : 0)" js_isEqualNode ::
Node -> Nullable Node -> IO Bool
isEqualNode ::
(MonadIO m, IsNode self, IsNode other) =>
self -> Maybe other -> m Bool
isEqualNode self other
= liftIO
(js_isEqualNode (toNode self)
(maybeToNullable (fmap toNode other)))
isEqualNode_ ::
(MonadIO m, IsNode self, IsNode other) =>
self -> Maybe other -> m ()
isEqualNode_ self other
= liftIO
(void
(js_isEqualNode (toNode self)
(maybeToNullable (fmap toNode other))))
foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)"
js_lookupPrefix ::
Node -> Nullable JSString -> IO (Nullable JSString)
lookupPrefix ::
(MonadIO m, IsNode self, ToJSString namespaceURI,
FromJSString result) =>
self -> Maybe namespaceURI -> m (Maybe result)
lookupPrefix self namespaceURI
= liftIO
(fromMaybeJSString <$>
(js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))
lookupPrefix_ ::
(MonadIO m, IsNode self, ToJSString namespaceURI) =>
self -> Maybe namespaceURI -> m ()
lookupPrefix_ self namespaceURI
= liftIO
(void
(js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))
lookupPrefixUnsafe ::
(MonadIO m, IsNode self, ToJSString namespaceURI, HasCallStack,
FromJSString result) =>
self -> Maybe namespaceURI -> m result
lookupPrefixUnsafe self namespaceURI
= liftIO
((fromMaybeJSString <$>
(js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))
>>= maybe (Prelude.error "Nothing to return") return)
lookupPrefixUnchecked ::
(MonadIO m, IsNode self, ToJSString namespaceURI,
FromJSString result) =>
self -> Maybe namespaceURI -> m result
lookupPrefixUnchecked self namespaceURI
= liftIO
(fromJust . fromMaybeJSString <$>
(js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))
foreign import javascript unsafe
"($1[\"isDefaultNamespace\"]($2) ? 1 : 0)" js_isDefaultNamespace ::
Node -> Nullable JSString -> IO Bool
isDefaultNamespace ::
(MonadIO m, IsNode self, ToJSString namespaceURI) =>
self -> Maybe namespaceURI -> m Bool
isDefaultNamespace self namespaceURI
= liftIO
(js_isDefaultNamespace (toNode self)
(toMaybeJSString namespaceURI))
isDefaultNamespace_ ::
(MonadIO m, IsNode self, ToJSString namespaceURI) =>
self -> Maybe namespaceURI -> m ()
isDefaultNamespace_ self namespaceURI
= liftIO
(void
(js_isDefaultNamespace (toNode self)
(toMaybeJSString namespaceURI)))
foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"
js_lookupNamespaceURI ::
Node -> Nullable JSString -> IO (Nullable JSString)
lookupNamespaceURI ::
(MonadIO m, IsNode self, ToJSString prefix, FromJSString result) =>
self -> Maybe prefix -> m (Maybe result)
lookupNamespaceURI self prefix
= liftIO
(fromMaybeJSString <$>
(js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))
lookupNamespaceURI_ ::
(MonadIO m, IsNode self, ToJSString prefix) =>
self -> Maybe prefix -> m ()
lookupNamespaceURI_ self prefix
= liftIO
(void
(js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))
lookupNamespaceURIUnsafe ::
(MonadIO m, IsNode self, ToJSString prefix, HasCallStack,
FromJSString result) =>
self -> Maybe prefix -> m result
lookupNamespaceURIUnsafe self prefix
= liftIO
((fromMaybeJSString <$>
(js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))
>>= maybe (Prelude.error "Nothing to return") return)
lookupNamespaceURIUnchecked ::
(MonadIO m, IsNode self, ToJSString prefix, FromJSString result) =>
self -> Maybe prefix -> m result
lookupNamespaceURIUnchecked self prefix
= liftIO
(fromJust . fromMaybeJSString <$>
(js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))
foreign import javascript unsafe
"$1[\"compareDocumentPosition\"]($2)" js_compareDocumentPosition ::
Node -> Nullable Node -> IO Word
compareDocumentPosition ::
(MonadIO m, IsNode self, IsNode other) =>
self -> Maybe other -> m Word
compareDocumentPosition self other
= liftIO
(js_compareDocumentPosition (toNode self)
(maybeToNullable (fmap toNode other)))
compareDocumentPosition_ ::
(MonadIO m, IsNode self, IsNode other) =>
self -> Maybe other -> m ()
compareDocumentPosition_ self other
= liftIO
(void
(js_compareDocumentPosition (toNode self)
(maybeToNullable (fmap toNode other))))
foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"
js_contains :: Node -> Nullable Node -> IO Bool
contains ::
(MonadIO m, IsNode self, IsNode other) =>
self -> Maybe other -> m Bool
contains self other
= liftIO
(js_contains (toNode self) (maybeToNullable (fmap toNode other)))
contains_ ::
(MonadIO m, IsNode self, IsNode other) =>
self -> Maybe other -> m ()
contains_ self other
= liftIO
(void
(js_contains (toNode self) (maybeToNullable (fmap toNode other))))
pattern ELEMENT_NODE = 1
pattern ATTRIBUTE_NODE = 2
pattern TEXT_NODE = 3
pattern CDATA_SECTION_NODE = 4
pattern ENTITY_REFERENCE_NODE = 5
pattern ENTITY_NODE = 6
pattern PROCESSING_INSTRUCTION_NODE = 7
pattern COMMENT_NODE = 8
pattern DOCUMENT_NODE = 9
pattern DOCUMENT_TYPE_NODE = 10
pattern DOCUMENT_FRAGMENT_NODE = 11
pattern NOTATION_NODE = 12
pattern DOCUMENT_POSITION_DISCONNECTED = 1
pattern DOCUMENT_POSITION_PRECEDING = 2
pattern DOCUMENT_POSITION_FOLLOWING = 4
pattern DOCUMENT_POSITION_CONTAINS = 8
pattern DOCUMENT_POSITION_CONTAINED_BY = 16
pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32
foreign import javascript unsafe "$1[\"nodeName\"]" js_getNodeName
:: Node -> IO (Nullable JSString)
getNodeName ::
(MonadIO m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getNodeName self
= liftIO (fromMaybeJSString <$> (js_getNodeName (toNode self)))
getNodeNameUnsafe ::
(MonadIO m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getNodeNameUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getNodeName (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getNodeNameUnchecked ::
(MonadIO m, IsNode self, FromJSString result) => self -> m result
getNodeNameUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getNodeName (toNode self)))
foreign import javascript unsafe "$1[\"nodeValue\"] = $2;"
js_setNodeValue :: Node -> Nullable JSString -> IO ()
setNodeValue ::
(MonadIO m, IsNode self, ToJSString val) =>
self -> Maybe val -> m ()
setNodeValue self val
= liftIO (js_setNodeValue (toNode self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"nodeValue\"]"
js_getNodeValue :: Node -> IO (Nullable JSString)
getNodeValue ::
(MonadIO m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getNodeValue self
= liftIO (fromMaybeJSString <$> (js_getNodeValue (toNode self)))
getNodeValueUnsafe ::
(MonadIO m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getNodeValueUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getNodeValue (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getNodeValueUnchecked ::
(MonadIO m, IsNode self, FromJSString result) => self -> m result
getNodeValueUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getNodeValue (toNode self)))
foreign import javascript unsafe "$1[\"nodeType\"]" js_getNodeType
:: Node -> IO Word
getNodeType :: (MonadIO m, IsNode self) => self -> m Word
getNodeType self = liftIO (js_getNodeType (toNode self))
foreign import javascript unsafe "$1[\"parentNode\"]"
js_getParentNode :: Node -> IO (Nullable Node)
getParentNode :: (MonadIO m, IsNode self) => self -> m (Maybe Node)
getParentNode self
= liftIO (nullableToMaybe <$> (js_getParentNode (toNode self)))
getParentNodeUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> m Node
getParentNodeUnsafe self
= liftIO
((nullableToMaybe <$> (js_getParentNode (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getParentNodeUnchecked ::
(MonadIO m, IsNode self) => self -> m Node
getParentNodeUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getParentNode (toNode self)))
foreign import javascript unsafe "$1[\"childNodes\"]"
js_getChildNodes :: Node -> IO (Nullable NodeList)
getChildNodes ::
(MonadIO m, IsNode self) => self -> m (Maybe NodeList)
getChildNodes self
= liftIO (nullableToMaybe <$> (js_getChildNodes (toNode self)))
getChildNodesUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> m NodeList
getChildNodesUnsafe self
= liftIO
((nullableToMaybe <$> (js_getChildNodes (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getChildNodesUnchecked ::
(MonadIO m, IsNode self) => self -> m NodeList
getChildNodesUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getChildNodes (toNode self)))
foreign import javascript unsafe "$1[\"firstChild\"]"
js_getFirstChild :: Node -> IO (Nullable Node)
getFirstChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node)
getFirstChild self
= liftIO (nullableToMaybe <$> (js_getFirstChild (toNode self)))
getFirstChildUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> m Node
getFirstChildUnsafe self
= liftIO
((nullableToMaybe <$> (js_getFirstChild (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFirstChildUnchecked ::
(MonadIO m, IsNode self) => self -> m Node
getFirstChildUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getFirstChild (toNode self)))
foreign import javascript unsafe "$1[\"lastChild\"]"
js_getLastChild :: Node -> IO (Nullable Node)
getLastChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node)
getLastChild self
= liftIO (nullableToMaybe <$> (js_getLastChild (toNode self)))
getLastChildUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> m Node
getLastChildUnsafe self
= liftIO
((nullableToMaybe <$> (js_getLastChild (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getLastChildUnchecked :: (MonadIO m, IsNode self) => self -> m Node
getLastChildUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getLastChild (toNode self)))
foreign import javascript unsafe "$1[\"previousSibling\"]"
js_getPreviousSibling :: Node -> IO (Nullable Node)
getPreviousSibling ::
(MonadIO m, IsNode self) => self -> m (Maybe Node)
getPreviousSibling self
= liftIO
(nullableToMaybe <$> (js_getPreviousSibling (toNode self)))
getPreviousSiblingUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> m Node
getPreviousSiblingUnsafe self
= liftIO
((nullableToMaybe <$> (js_getPreviousSibling (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getPreviousSiblingUnchecked ::
(MonadIO m, IsNode self) => self -> m Node
getPreviousSiblingUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getPreviousSibling (toNode self)))
foreign import javascript unsafe "$1[\"nextSibling\"]"
js_getNextSibling :: Node -> IO (Nullable Node)
getNextSibling ::
(MonadIO m, IsNode self) => self -> m (Maybe Node)
getNextSibling self
= liftIO (nullableToMaybe <$> (js_getNextSibling (toNode self)))
getNextSiblingUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> m Node
getNextSiblingUnsafe self
= liftIO
((nullableToMaybe <$> (js_getNextSibling (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getNextSiblingUnchecked ::
(MonadIO m, IsNode self) => self -> m Node
getNextSiblingUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getNextSibling (toNode self)))
foreign import javascript unsafe "$1[\"ownerDocument\"]"
js_getOwnerDocument :: Node -> IO (Nullable Document)
getOwnerDocument ::
(MonadIO m, IsNode self) => self -> m (Maybe Document)
getOwnerDocument self
= liftIO (nullableToMaybe <$> (js_getOwnerDocument (toNode self)))
getOwnerDocumentUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> m Document
getOwnerDocumentUnsafe self
= liftIO
((nullableToMaybe <$> (js_getOwnerDocument (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getOwnerDocumentUnchecked ::
(MonadIO m, IsNode self) => self -> m Document
getOwnerDocumentUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getOwnerDocument (toNode self)))
foreign import javascript unsafe "$1[\"namespaceURI\"]"
js_getNamespaceURI :: Node -> IO (Nullable JSString)
getNamespaceURI ::
(MonadIO m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getNamespaceURI self
= liftIO (fromMaybeJSString <$> (js_getNamespaceURI (toNode self)))
getNamespaceURIUnsafe ::
(MonadIO m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getNamespaceURIUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getNamespaceURI (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getNamespaceURIUnchecked ::
(MonadIO m, IsNode self, FromJSString result) => self -> m result
getNamespaceURIUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getNamespaceURI (toNode self)))
foreign import javascript unsafe "$1[\"prefix\"] = $2;"
js_setPrefix :: Node -> Nullable JSString -> IO ()
setPrefix ::
(MonadIO m, IsNode self, ToJSString val) =>
self -> Maybe val -> m ()
setPrefix self val
= liftIO (js_setPrefix (toNode self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"prefix\"]" js_getPrefix ::
Node -> IO (Nullable JSString)
getPrefix ::
(MonadIO m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getPrefix self
= liftIO (fromMaybeJSString <$> (js_getPrefix (toNode self)))
getPrefixUnsafe ::
(MonadIO m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getPrefixUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getPrefix (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getPrefixUnchecked ::
(MonadIO m, IsNode self, FromJSString result) => self -> m result
getPrefixUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getPrefix (toNode self)))
foreign import javascript unsafe "$1[\"localName\"]"
js_getLocalName :: Node -> IO (Nullable JSString)
getLocalName ::
(MonadIO m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getLocalName self
= liftIO (fromMaybeJSString <$> (js_getLocalName (toNode self)))
getLocalNameUnsafe ::
(MonadIO m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getLocalNameUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getLocalName (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getLocalNameUnchecked ::
(MonadIO m, IsNode self, FromJSString result) => self -> m result
getLocalNameUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getLocalName (toNode self)))
foreign import javascript unsafe "$1[\"baseURI\"]" js_getBaseURI ::
Node -> IO (Nullable JSString)
getBaseURI ::
(MonadIO m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getBaseURI self
= liftIO (fromMaybeJSString <$> (js_getBaseURI (toNode self)))
getBaseURIUnsafe ::
(MonadIO m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getBaseURIUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getBaseURI (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getBaseURIUnchecked ::
(MonadIO m, IsNode self, FromJSString result) => self -> m result
getBaseURIUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getBaseURI (toNode self)))
foreign import javascript unsafe "$1[\"textContent\"] = $2;"
js_setTextContent :: Node -> Nullable JSString -> IO ()
setTextContent ::
(MonadIO m, IsNode self, ToJSString val) =>
self -> Maybe val -> m ()
setTextContent self val
= liftIO (js_setTextContent (toNode self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"textContent\"]"
js_getTextContent :: Node -> IO (Nullable JSString)
getTextContent ::
(MonadIO m, IsNode self, FromJSString result) =>
self -> m (Maybe result)
getTextContent self
= liftIO (fromMaybeJSString <$> (js_getTextContent (toNode self)))
getTextContentUnsafe ::
(MonadIO m, IsNode self, HasCallStack, FromJSString result) =>
self -> m result
getTextContentUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getTextContent (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTextContentUnchecked ::
(MonadIO m, IsNode self, FromJSString result) => self -> m result
getTextContentUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$>
(js_getTextContent (toNode self)))
foreign import javascript unsafe "$1[\"parentElement\"]"
js_getParentElement :: Node -> IO (Nullable Element)
getParentElement ::
(MonadIO m, IsNode self) => self -> m (Maybe Element)
getParentElement self
= liftIO (nullableToMaybe <$> (js_getParentElement (toNode self)))
getParentElementUnsafe ::
(MonadIO m, IsNode self, HasCallStack) => self -> m Element
getParentElementUnsafe self
= liftIO
((nullableToMaybe <$> (js_getParentElement (toNode self))) >>=
maybe (Prelude.error "Nothing to return") return)
getParentElementUnchecked ::
(MonadIO m, IsNode self) => self -> m Element
getParentElementUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getParentElement (toNode self)))