[project @ 2003-10-09 11:58:39 by simonpj]

[ghc-hetmet.git] / ghc / compiler / codeGen / CodeGen.lhs

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index 5b01138..4ac0eaa 100644 (file)
--- a/ghc/compiler/codeGen/CodeGen.lhs
+++ b/ghc/compiler/codeGen/CodeGen.lhs
@@ -300,7 +300,7 @@ maybeExternaliseId id
   | opt_EnsureSplittableC,     -- Externalise the name for -split-objs
     isInternalName name
   = moduleName                          `thenFC` \ mod ->
-    returnFC (setIdName id (mkExternalName uniq mod new_occ (nameSrcLoc name)))
+    returnFC (setIdName id (mkExternalName uniq mod new_occ Nothing (nameSrcLoc name)))
   | otherwise          
   = returnFC id
   where