X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FdeSugar%2FDsForeign.lhs;h=ee7e66814b3d9cfb22771e65b156b073f2dab7cb;hb=9adbdb312507dcc7d5777e36376535918549103b;hp=3497cf215a44109e5c5b1e8e13a4825973c1edc7;hpb=6065c9df3e0621193ccc944e11dc263db8e13354;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 3497cf2..ee7e668 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -27,7 +27,7 @@ import Literal		( Literal(..) )
 import Module		( Module, moduleUserString )
 import Name		( mkGlobalName, nameModule, nameOccName, getOccString, 
 			  mkForeignExportOcc, isLocalName,
-			  NamedThing(..), Provenance(..), ExportFlag(..)
+			  NamedThing(..),
 			)
 import Type		( unUsgTy, repType,
 			  splitTyConApp_maybe, splitFunTys, splitForAllTys,
@@ -271,8 +271,7 @@ dsFExport fn_id ty mod_name ext_name cconv isDyn
 			 | otherwise        = nameModule name
 
 			occ	            = mkForeignExportOcc (nameOccName name)
-			prov	            = LocalDef src_loc Exported
-			helper_name         = mkGlobalName uniq mod occ prov
+			helper_name         = mkGlobalName uniq mod occ src_loc
 
       	the_app = getFun_wrapper (return_io_wrapper (mkVarApps (Var i) (tvs ++ fe_args)))
       	the_body = mkLams (tvs ++ wrapper_args) the_app