[project @ 2000-04-21 15:59:13 by panne]

[ghc-hetmet.git] / ghc / compiler / rename / RnSource.lhs

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 9897fd8..40be2b7 100644 (file)
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -43,7 +43,7 @@ import OccName                ( mkDefaultMethodOcc )
 import BasicTypes      ( TopLevelFlag(..) )
 import FiniteMap       ( elemFM )
 import PrelInfo                ( derivableClassKeys,
-                         deRefStablePtr_NAME, makeStablePtr_NAME, bindIO_NAME
+                         deRefStablePtr_NAME, makeStablePtr_NAME, bindIO_NAME, returnIO_NAME
                        )
 import Bag             ( bagToList )
 import List            ( partition, nub )
@@ -358,7 +358,7 @@ rnDecl (ForD (ForeignDecl name imp_exp ty ext_nm cconv src_loc))
                FoLabel                 -> emptyFVs
                FoExport   | isDyn      -> mkNameSet [makeStablePtr_NAME,
                                                      deRefStablePtr_NAME,
-                                                     bindIO_NAME]
+                                                     bindIO_NAME, returnIO_NAME]
                           | otherwise  -> mkNameSet [name']
                _ -> emptyFVs
     in