[project @ 2001-11-19 16:34:12 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / ParseIface.y

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 976d3b0..1fd883c 100644 (file)
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -43,7 +43,6 @@ import BasicTypes     ( Fixity(..), FixityDirection(..), StrictnessMark(..),
                        )
 import CostCentre       ( CostCentre(..), IsCafCC(..), IsDupdCC(..) )
 import Type            ( Kind, mkArrowKind, liftedTypeKind, openTypeKind, usageTypeKind )
-import IdInfo           ( InlinePragInfo(..) )
 import ForeignCall     ( ForeignCall(..), CCallConv(..), CCallSpec(..), CCallTarget(..) )
 import Lex             
 
@@ -723,15 +722,11 @@ id_info           :: { [HsIdInfo RdrName] }
 
 id_info_item   :: { HsIdInfo RdrName }
                : '__A' INTEGER                 { HsArity (fromInteger $2) }
-               | '__U' inline_prag core_expr   { HsUnfold $2 $3 }
+               | '__U' activation core_expr    { HsUnfold $2 $3 }
                | '__S'                         { HsStrictness $1 }
                | '__C'                         { HsNoCafRefs }
                | '__P' qvar_name INTEGER       { HsWorker $2 (fromInteger $3) }
 
-inline_prag     :: { InlinePragInfo }
-                :  {- empty -}                  { AlwaysActive }
-               | '[' INTEGER ']'               { ActiveAfter (fromInteger $2) }
-
 -------------------------------------------------------
 core_expr      :: { UfExpr RdrName }
 core_expr      : '\\' core_bndrs '->' core_expr        { foldr UfLam $4 $2 }