[project @ 2001-11-05 14:15:53 by simonpj]

Tidy up activation pragmas

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 976d3b0..e1795a3 100644 (file)
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -723,15 +723,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 }