From: sof <unknown>
Date: Thu, 21 Jan 1999 20:01:10 +0000 (+0000)
Subject: [project @ 1999-01-21 20:01:10 by sof]
X-Git-Tag: Approx_2487_patches~27
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0a8369c6d7a6595525aba30fb2bfe5b5230d9e71;p=ghc-hetmet.git

[project @ 1999-01-21 20:01:10 by sof]
wibble
---

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 84ccaf4..8871fb5 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -268,7 +268,7 @@ dsFExport i ty ext_name cconv isDyn =
 	  ExtName fs _ -> fs
 	  Dynamic      -> panic "dsFExport: Dynamic - shouldn't ever happen."
 
-      f_helper_glob    = mkIdVisible mod uniq f_helper
+      f_helper_glob    = mkIdVisible mod f_helper
       (h_stub, c_stub) = fexportEntry c_nm f_helper_glob wrapper_arg_tys the_result_ty cconv isDyn
      in
      returnDs (NonRec f_helper_glob the_body, h_stub, c_stub)