[project @ 2000-10-24 07:35:00 by simonpj]

Mainly MkIface

1 files changed, 10 insertions, 2 deletions

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index d067c64510..f228ea874b 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.41 2000/10/12 11:47:26 sewardj Exp $
+$Id: Parser.y,v 1.42 2000/10/24 07:35:01 simonpj Exp $
 
 Haskell grammar.
 
@@ -451,7 +451,7 @@ deprecations :: { RdrBinding }
 
 -- SUP: TEMPORARY HACK, not checking for `module Foo'
 deprecation :: { RdrBinding }
-	: srcloc exportlist STRING
+	: srcloc depreclist STRING
 		{ foldr RdrAndBindings RdrNullBind 
 			[ RdrHsDecl (DeprecD (Deprecation n $3 $1)) | n <- $2 ] }
 
@@ -876,6 +876,14 @@ dbind	: ipvar '=' exp			{ ($1, $3) }
 -----------------------------------------------------------------------------
 -- Variables, Constructors and Operators.
 
+depreclist :: { [RdrName] }
+depreclist : deprec_var			{ [$1] }
+	   | deprec_var ',' depreclist	{ $1 : $2 }
+
+deprec_var :: { RdrName }
+deprec_var : var			{ $1 }
+	   | tycon			{ $1 }
+
 gtycon 	:: { RdrName }
 	: qtycon			{ $1 }
  	| '(' qtyconop ')'		{ $2 }