X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FCodeGen.lhs;h=4c08242612e03f4255e04ebde29a177d7c0d6f7f;hp=0422a875e15cd014698e227e2beba8f8919385e5;hb=b00b5bc04ff36a551552470060064f0b7d84ca30;hpb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc

diff --git a/compiler/codeGen/CodeGen.lhs b/compiler/codeGen/CodeGen.lhs
index 0422a87..4c08242 100644
--- a/compiler/codeGen/CodeGen.lhs
+++ b/compiler/codeGen/CodeGen.lhs
@@ -330,7 +330,7 @@ maybeExternaliseId dflags id
 			     ; returnFC (setIdName id (externalise mod)) }
   | otherwise		= returnFC id
   where
-    externalise mod = mkExternalName uniq mod new_occ Nothing loc
+    externalise mod = mkExternalName uniq mod new_occ loc
     name    = idName id
     uniq    = nameUnique name
     new_occ = mkLocalOcc uniq (nameOccName name)