From: simonpj@microsoft.com <unknown>
Date: Wed, 20 Jun 2007 16:58:36 +0000 (+0000)
Subject: Trivial fix to clear Trac #1386
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=732f30c21c984cf2a03afca3df91fa539c354559

Trivial fix to clear Trac #1386
---

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 6d90eaa..041a34c 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -280,7 +280,7 @@ rnHsForeignDecl (ForeignImport name ty spec)
 rnHsForeignDecl (ForeignExport name ty spec)
   = lookupLocatedOccRn name	        `thenM` \ name' ->
     rnHsTypeFVs (fo_decl_msg name) ty  	`thenM` \ (ty', fvs) ->
-    returnM (ForeignExport name' ty' spec, fvs )
+    returnM (ForeignExport name' ty' spec, fvs `addOneFV` unLoc name')
 	-- NB: a foreign export is an *occurrence site* for name, so 
 	--     we add it to the free-variable list.  It might, for example,
 	--     be imported from another module