X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnNames.lhs;h=63fd99dde1ae688b645f5f128dbd16bbaf7e814c;hp=71d5c9b350a036eb86db71aa7f316d495d539151;hb=16513d4899e167d20e120c2b3907230b7ff9dd83;hpb=7b1b3279afe25b4e65ee9ebbafc5e9e38a3b888b

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 71d5c9b..63fd99d 100644
--- a/compiler/rename/RnNames.lhs
+++ b/compiler/rename/RnNames.lhs
@@ -430,7 +430,7 @@ getLocalDeclBinders gbl_env (HsGroup {hs_valds = ValBindsIn val_decls val_sigs,
 
     sig_hs_bndrs = [nm | L _ (TypeSig nm _) <- val_sigs]
     val_hs_bndrs = collectHsBindLocatedBinders val_decls
-    for_hs_bndrs = [nm | L _ (ForeignImport nm _ _ _) <- foreign_decls]
+    for_hs_bndrs = [nm | L _ (ForeignImport nm _ _) <- foreign_decls]
 
     new_tc tc_decl 
 	= do { main_name <- newTopSrcBinder mod Nothing main_rdr