followNode :: DevGraphNavigator a => a -> Node -> (a, LNode DGNodeLab)
followNode dgnav n = (relocate dgnav dg [lbln], lbln)
    where (dg, lbln) = getLocalNode dgnav n

-- | get all the incoming ledges of the current node
followNode :: DevGraphNavigator a => a -> Node -> (a, LNode DGNodeLab)
followNode dgnav n = (relocate dgnav dg [lbln], lbln)
    where (dg, lbln) = getLocalNode dgnav n

-- | get all the incoming ledges of the current node
followNode dgnav n = (relocate dgnav dg [lbln], lbln)
    where (dg, lbln) = getLocalNode dgnav n

-- | get all the incoming ledges of the current node