{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NodeIterator (nextNode, nextNode_, nextNodeUnsafe, nextNodeUnchecked, previousNode, previousNode_, previousNodeUnsafe, previousNodeUnchecked, detach, getRoot, getRootUnsafe, getRootUnchecked, getWhatToShow, getFilter, getFilterUnsafe, getFilterUnchecked, getExpandEntityReferences, getReferenceNode, getReferenceNodeUnsafe, getReferenceNodeUnchecked, getPointerBeforeReferenceNode, NodeIterator(..), gTypeNodeIterator) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums -- | nextNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node) nextNode self = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSVal) -- | nextNode_ :: (MonadDOM m) => NodeIterator -> m () nextNode_ self = liftDOM (void (self ^. jsf "nextNode" ())) -- | nextNodeUnsafe :: (MonadDOM m, HasCallStack) => NodeIterator -> m Node nextNodeUnsafe self = liftDOM (((self ^. jsf "nextNode" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | nextNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node nextNodeUnchecked self = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked) -- | previousNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node) previousNode self = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSVal) -- | previousNode_ :: (MonadDOM m) => NodeIterator -> m () previousNode_ self = liftDOM (void (self ^. jsf "previousNode" ())) -- | previousNodeUnsafe :: (MonadDOM m, HasCallStack) => NodeIterator -> m Node previousNodeUnsafe self = liftDOM (((self ^. jsf "previousNode" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | previousNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node previousNodeUnchecked self = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked) -- | detach :: (MonadDOM m) => NodeIterator -> m () detach self = liftDOM (void (self ^. jsf "detach" ())) -- | getRoot :: (MonadDOM m) => NodeIterator -> m (Maybe Node) getRoot self = liftDOM ((self ^. js "root") >>= fromJSVal) -- | getRootUnsafe :: (MonadDOM m, HasCallStack) => NodeIterator -> m Node getRootUnsafe self = liftDOM (((self ^. js "root") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getRootUnchecked :: (MonadDOM m) => NodeIterator -> m Node getRootUnchecked self = liftDOM ((self ^. js "root") >>= fromJSValUnchecked) -- | getWhatToShow :: (MonadDOM m) => NodeIterator -> m Word getWhatToShow self = liftDOM (round <$> ((self ^. js "whatToShow") >>= valToNumber)) -- | getFilter :: (MonadDOM m) => NodeIterator -> m (Maybe NodeFilter) getFilter self = liftDOM ((self ^. js "filter") >>= fromJSVal) -- | getFilterUnsafe :: (MonadDOM m, HasCallStack) => NodeIterator -> m NodeFilter getFilterUnsafe self = liftDOM (((self ^. js "filter") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getFilterUnchecked :: (MonadDOM m) => NodeIterator -> m NodeFilter getFilterUnchecked self = liftDOM ((self ^. js "filter") >>= fromJSValUnchecked) -- | getExpandEntityReferences :: (MonadDOM m) => NodeIterator -> m Bool getExpandEntityReferences self = liftDOM ((self ^. js "expandEntityReferences") >>= valToBool) -- | getReferenceNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node) getReferenceNode self = liftDOM ((self ^. js "referenceNode") >>= fromJSVal) -- | getReferenceNodeUnsafe :: (MonadDOM m, HasCallStack) => NodeIterator -> m Node getReferenceNodeUnsafe self = liftDOM (((self ^. js "referenceNode") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getReferenceNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node getReferenceNodeUnchecked self = liftDOM ((self ^. js "referenceNode") >>= fromJSValUnchecked) -- | getPointerBeforeReferenceNode :: (MonadDOM m) => NodeIterator -> m Bool getPointerBeforeReferenceNode self = liftDOM ((self ^. js "pointerBeforeReferenceNode") >>= valToBool)