lookup +fgl

lookupFM :: Ord a => FiniteMap a b -> a -> Maybe b
fgl Data.Graph.Inductive.Internal.FiniteMap