[project @ 2002-01-29 09:58:14 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 1967e49..81771f9 100644 (file)
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -155,6 +155,7 @@ import FastString   ( tailFS )
  '<-'          { ITlarrow }
  '->'          { ITrarrow }
  '@'           { ITat }
+ '~'           { ITtilde }
  '=>'          { ITdarrow }
  '-'           { ITminus }
  '!'           { ITbang }
@@ -428,6 +429,7 @@ rule           : src_loc STRING activation rule_forall qvar_name
 activation :: { Activation }
 activation : {- empty -}                { AlwaysActive }
            | '[' INTEGER ']'            { ActiveAfter (fromInteger $2) }
+           | '[' '~' INTEGER ']'        { ActiveBefore (fromInteger $3) }
 
 rule_forall    :: { [UfBinder RdrName] }
 rule_forall    : '__forall' '{' core_bndrs '}' { $3 }