-- |
-- Parses the next node.
nodesImmediateNode :: Node a -> Nodes a
nodesImmediateNode =
  liftAlt . AST.NodesNode
nodesImmediateNode :: Node a -> Nodes a
nodesImmediateNode =
  liftAlt . AST.NodesNode
nodesImmediateNode =
  liftAlt . AST.NodesNode