searchLink :: DevGraphNavigator a =>
                 (LEdge DGLinkLab -> Bool) -> a -> Maybe (a, LEdge DGLinkLab)
searchLink p dgnav =
    firstMaybe (searchLinkFrom p dgnav . fst) $ getCurrent dgnav
searchLink :: DevGraphNavigator a =>
                 (LEdge DGLinkLab -> Bool) -> a -> Maybe (a, LEdge DGLinkLab)
searchLink p dgnav =
    firstMaybe (searchLinkFrom p dgnav . fst) $ getCurrent dgnav
searchLink p dgnav =
    firstMaybe (searchLinkFrom p dgnav . fst) $ getCurrent dgnav