searchNode :: DevGraphNavigator a =>
                 (LNode DGNodeLab -> Bool) -> a -> Maybe (a, LNode DGNodeLab)
searchNode p dgnav =
    firstMaybe (searchNodeFrom p dgnav . fst) $ getCurrent dgnav
searchNode :: DevGraphNavigator a =>
                 (LNode DGNodeLab -> Bool) -> a -> Maybe (a, LNode DGNodeLab)
searchNode p dgnav =
    firstMaybe (searchNodeFrom p dgnav . fst) $ getCurrent dgnav
searchNode p dgnav =
    firstMaybe (searchNodeFrom p dgnav . fst) $ getCurrent dgnav