Rename package key to unit ID, and installed package ID to component ID.
[ghc.git] / compiler / codeGen / StgCmmMonad.hs
index 1acf31b..3d055e7 100644 (file)
@@ -498,7 +498,7 @@ withSelfLoop self_loop code = do
 instance HasDynFlags FCode where
     getDynFlags = liftM cgd_dflags getInfoDown
 
-getThisPackage :: FCode PackageKey
+getThisPackage :: FCode UnitId
 getThisPackage = liftM thisPackage getDynFlags
 
 withInfoDown :: FCode a -> CgInfoDownwards -> FCode a