From 01f2098bacf244e7465a01531855b39fe3bca362 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 5 Nov 2001 14:15:53 +0000
Subject: [PATCH] [project @ 2001-11-05 14:15:53 by simonpj] Tidy up
 activation pragmas

---
 ghc/compiler/rename/ParseIface.y |    6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 976d3b0..e1795a3 100644
--- 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 }
-- 
1.7.10.4