From 1627a008c90837dcf806533198ac0801f8b24e27 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 14 Mar 2001 17:48:45 +0000 Subject: [PATCH] [project @ 2001-03-14 17:48:45 by simonmar] Fix a bug which has been causing all SPECIALISE pragmas to be thrown away. --- ghc/compiler/basicTypes/Var.lhs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 1.7.10.4