Rename package key to unit ID, and installed package ID to component ID.
[ghc.git] / compiler / typecheck / TcEnv.hs
index 9605ed5..aed7f5d 100644 (file)
@@ -814,7 +814,7 @@ mkWrapperName what nameBase
          thisMod <- getModule
          let -- Note [Generating fresh names for ccall wrapper]
              wrapperRef = nextWrapperNum dflags
-             pkg = packageKeyString  (modulePackageKey thisMod)
+             pkg = unitIdString  (moduleUnitId thisMod)
              mod = moduleNameString (moduleName      thisMod)
          wrapperNum <- liftIO $ atomicModifyIORef' wrapperRef $ \mod_env ->
              let num = lookupWithDefaultModuleEnv mod_env 0 thisMod