[project @ 2001-11-05 14:08:28 by chak]

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

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 629afee..976d3b0 100644 (file)
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -427,7 +427,7 @@ rule           : src_loc STRING activation rule_forall qvar_name
 
 activation :: { Activation }
 activation : {- empty -}                { AlwaysActive }
-           | INTEGER                    { ActiveAfter (fromInteger $1) }
+           | '[' INTEGER ']'            { ActiveAfter (fromInteger $2) }
 
 rule_forall    :: { [UfBinder RdrName] }
 rule_forall    : '__forall' '{' core_bndrs '}' { $3 }