-- | Does a lookup by component identifier.  In the absence
-- of Backpack, this is just a 'lookupUnitId'.
--
lookupComponentId :: PackageIndex a -> ComponentId
                  -> Maybe a
lookupComponentId index uid = Map.lookup (SimpleUnitId uid) (unitIdIndex index)
lookupComponentId :: PackageIndex a -> ComponentId
                  -> Maybe a
lookupComponentId index uid = Map.lookup (SimpleUnitId uid) (unitIdIndex index)
lookupComponentId index uid = Map.lookup (SimpleUnitId uid) (unitIdIndex index)