[project @ 2001-04-27 20:30:55 by qrczak]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Var.lhs

diff --git a/ghc/compiler/basicTypes/Var.lhs b/ghc/compiler/basicTypes/Var.lhs
index 062767a..b9d7cf7 100644 (file)
--- a/ghc/compiler/basicTypes/Var.lhs
+++ b/ghc/compiler/basicTypes/Var.lhs
@@ -353,10 +353,12 @@ isGlobalId var = case varDetails var of
                   GlobalId _ -> True
                   other      -> False
 
+-- isExportedId means "don't throw this away"
 isExportedId var = case varDetails var of
-                       LocalId Exported -> True
-                       GlobalId _       -> True
-                       other            -> False
+                       LocalId Exported   -> True
+                       LocalId SpecPragma -> True
+                       GlobalId _         -> True
+                       other              -> False
 
 isSpecPragmaId var = case varDetails var of
                        LocalId SpecPragma -> True