-- | Determines if this node matches the successor criteria for chains.
hasNext   :: (Graph g) => g a b -> Node -> Bool
hasNext g = isJust . chainNext g
hasNext   :: (Graph g) => g a b -> Node -> Bool
hasNext g = isJust . chainNext g
hasNext g = isJust . chainNext g