TreeWalker.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from dom (webref). Do not edit.
module JSDOM.Generated.TreeWalker
       (firstChild, firstChild_, firstChildUnsafe, firstChildUnchecked, lastChild, lastChild_, lastChildUnsafe, lastChildUnchecked, nextNode, nextNode_, nextNodeUnsafe, nextNodeUnchecked, nextSibling, nextSibling_, nextSiblingUnsafe, nextSiblingUnchecked, parentNode, parentNode_, parentNodeUnsafe, parentNodeUnchecked, previousNode, previousNode_, previousNodeUnsafe, previousNodeUnchecked, previousSibling, previousSibling_, previousSiblingUnsafe, previousSiblingUnchecked, getRoot, getWhatToShow, setCurrentNode, getCurrentNode, TreeWalker(..), gTypeTreeWalker)
       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://developer.mozilla.org/docs/Web/API/TreeWalker/firstChild MDN TreeWalker.firstChild documentation>
firstChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node)
firstChild self = liftDOM (((self ^. jsf "firstChild" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/firstChild MDN TreeWalker.firstChild documentation>
firstChild_ :: (MonadDOM m) => TreeWalker -> m ()
firstChild_ self = liftDOM (void (self ^. jsf "firstChild" ()))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/firstChild MDN TreeWalker.firstChild documentation>
firstChildUnsafe :: (MonadDOM m, HasCallStack) => TreeWalker -> m Node
firstChildUnsafe self = liftDOM ((((self ^. jsf "firstChild" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/firstChild MDN TreeWalker.firstChild documentation>
firstChildUnchecked :: (MonadDOM m) => TreeWalker -> m Node
firstChildUnchecked self = liftDOM (((self ^. jsf "firstChild" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/lastChild MDN TreeWalker.lastChild documentation>
lastChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node)
lastChild self = liftDOM (((self ^. jsf "lastChild" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/lastChild MDN TreeWalker.lastChild documentation>
lastChild_ :: (MonadDOM m) => TreeWalker -> m ()
lastChild_ self = liftDOM (void (self ^. jsf "lastChild" ()))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/lastChild MDN TreeWalker.lastChild documentation>
lastChildUnsafe :: (MonadDOM m, HasCallStack) => TreeWalker -> m Node
lastChildUnsafe self = liftDOM ((((self ^. jsf "lastChild" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/lastChild MDN TreeWalker.lastChild documentation>
lastChildUnchecked :: (MonadDOM m) => TreeWalker -> m Node
lastChildUnchecked self = liftDOM (((self ^. jsf "lastChild" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/nextNode MDN TreeWalker.nextNode documentation>
nextNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)
nextNode self = liftDOM (((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/nextNode MDN TreeWalker.nextNode documentation>
nextNode_ :: (MonadDOM m) => TreeWalker -> m ()
nextNode_ self = liftDOM (void (self ^. jsf "nextNode" ()))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/nextNode MDN TreeWalker.nextNode documentation>
nextNodeUnsafe :: (MonadDOM m, HasCallStack) => TreeWalker -> m Node
nextNodeUnsafe self = liftDOM ((((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/nextNode MDN TreeWalker.nextNode documentation>
nextNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node
nextNodeUnchecked self = liftDOM (((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/nextSibling MDN TreeWalker.nextSibling documentation>
nextSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node)
nextSibling self = liftDOM (((self ^. jsf "nextSibling" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/nextSibling MDN TreeWalker.nextSibling documentation>
nextSibling_ :: (MonadDOM m) => TreeWalker -> m ()
nextSibling_ self = liftDOM (void (self ^. jsf "nextSibling" ()))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/nextSibling MDN TreeWalker.nextSibling documentation>
nextSiblingUnsafe :: (MonadDOM m, HasCallStack) => TreeWalker -> m Node
nextSiblingUnsafe self = liftDOM ((((self ^. jsf "nextSibling" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/nextSibling MDN TreeWalker.nextSibling documentation>
nextSiblingUnchecked :: (MonadDOM m) => TreeWalker -> m Node
nextSiblingUnchecked self = liftDOM (((self ^. jsf "nextSibling" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/parentNode MDN TreeWalker.parentNode documentation>
parentNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)
parentNode self = liftDOM (((self ^. jsf "parentNode" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/parentNode MDN TreeWalker.parentNode documentation>
parentNode_ :: (MonadDOM m) => TreeWalker -> m ()
parentNode_ self = liftDOM (void (self ^. jsf "parentNode" ()))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/parentNode MDN TreeWalker.parentNode documentation>
parentNodeUnsafe :: (MonadDOM m, HasCallStack) => TreeWalker -> m Node
parentNodeUnsafe self = liftDOM ((((self ^. jsf "parentNode" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/parentNode MDN TreeWalker.parentNode documentation>
parentNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node
parentNodeUnchecked self = liftDOM (((self ^. jsf "parentNode" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/previousNode MDN TreeWalker.previousNode documentation>
previousNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)
previousNode self = liftDOM (((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/previousNode MDN TreeWalker.previousNode documentation>
previousNode_ :: (MonadDOM m) => TreeWalker -> m ()
previousNode_ self = liftDOM (void (self ^. jsf "previousNode" ()))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/previousNode MDN TreeWalker.previousNode documentation>
previousNodeUnsafe :: (MonadDOM m, HasCallStack) => TreeWalker -> m Node
previousNodeUnsafe self = liftDOM ((((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/previousNode MDN TreeWalker.previousNode documentation>
previousNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node
previousNodeUnchecked self = liftDOM (((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/previousSibling MDN TreeWalker.previousSibling documentation>
previousSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node)
previousSibling self = liftDOM (((self ^. jsf "previousSibling" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/previousSibling MDN TreeWalker.previousSibling documentation>
previousSibling_ :: (MonadDOM m) => TreeWalker -> m ()
previousSibling_ self = liftDOM (void (self ^. jsf "previousSibling" ()))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/previousSibling MDN TreeWalker.previousSibling documentation>
previousSiblingUnsafe :: (MonadDOM m, HasCallStack) => TreeWalker -> m Node
previousSiblingUnsafe self = liftDOM ((((self ^. jsf "previousSibling" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/previousSibling MDN TreeWalker.previousSibling documentation>
previousSiblingUnchecked :: (MonadDOM m) => TreeWalker -> m Node
previousSiblingUnchecked self = liftDOM (((self ^. jsf "previousSibling" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/root MDN TreeWalker.root documentation>
getRoot :: (MonadDOM m) => TreeWalker -> m Node
getRoot self = liftDOM (((self ^. js "root") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/whatToShow MDN TreeWalker.whatToShow documentation>
getWhatToShow :: (MonadDOM m) => TreeWalker -> m Word
getWhatToShow self = liftDOM ((P.round <$> ((self ^. js "whatToShow") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/currentNode MDN TreeWalker.currentNode documentation>
setCurrentNode :: (MonadDOM m, IsNode val) => TreeWalker -> val -> m ()
setCurrentNode self val = liftDOM (void (self ^. jss "currentNode" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/TreeWalker/currentNode MDN TreeWalker.currentNode documentation>
getCurrentNode :: (MonadDOM m) => TreeWalker -> m Node
getCurrentNode self = liftDOM (((self ^. js "currentNode") >>= fromJSValUnchecked))