From: simonmar <unknown>
Date: Wed, 14 Mar 2001 17:48:45 +0000 (+0000)
Subject: [project @ 2001-03-14 17:48:45 by simonmar]
X-Git-Tag: Approximately_9120_patches~2407
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1627a008c90837dcf806533198ac0801f8b24e27;p=ghc-hetmet.git

[project @ 2001-03-14 17:48:45 by simonmar]
Fix a bug which has been causing all SPECIALISE pragmas to be thrown
away.
---

diff --git a/ghc/compiler/basicTypes/Var.lhs b/ghc/compiler/basicTypes/Var.lhs
index 062767a..b9d7cf7 100644
--- 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