followIncoming :: DevGraphNavigator a => a -> Node
                    -> (a, LNode DGNodeLab, [LEdge DGLinkLab])
followIncoming dgn n = (dgn', lbln, incoming dgn' n')
    where (dgn', lbln@(n', _)) = followNode dgn n

-- | get the local (not referenced) label of the given node
followIncoming :: DevGraphNavigator a => a -> Node
                    -> (a, LNode DGNodeLab, [LEdge DGLinkLab])
followIncoming dgn n = (dgn', lbln, incoming dgn' n')
    where (dgn', lbln@(n', _)) = followNode dgn n

-- | get the local (not referenced) label of the given node
followIncoming dgn n = (dgn', lbln, incoming dgn' n')
    where (dgn', lbln@(n', _)) = followNode dgn n

-- | get the local (not referenced) label of the given node