X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgBindery.lhs;fp=compiler%2FcodeGen%2FCgBindery.lhs;h=96735ef2112fb0e0a28821419a2a2511e41a40a0;hb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc;hp=f78edda6554b1f8376159ac3ae015181b0acae1f;hpb=b93eb0c23bed01905e86c0a8c485edb388626761;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgBindery.lhs b/compiler/codeGen/CgBindery.lhs
index f78edda..96735ef 100644
--- a/compiler/codeGen/CgBindery.lhs
+++ b/compiler/codeGen/CgBindery.lhs
@@ -240,8 +240,8 @@ getCgIdInfo id
 	    name = idName id
 	in
 	if isExternalName name then do
-	    hmods <- getHomeModules 
-	    let ext_lbl = CmmLit (CmmLabel (mkClosureLabel hmods name))
+	    this_pkg <- getThisPackage
+	    let ext_lbl = CmmLit (CmmLabel (mkClosureLabel this_pkg name))
 	    return (stableIdInfo id ext_lbl (mkLFImported id))
 	else
 	if isVoidArg (idCgRep id) then