X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FParser.y;h=d45e39626c7024356df2e4670ced81ab4c6eef01;hb=48eec5685167006e5e0932d334f8bd2017d7f5d3;hp=88ba099f291997b7f56ce262fab51f6e6bee1cad;hpb=fbbd8bedc973b5c6640580d4caee55084166a4a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 88ba099..d45e396 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.21 2000/02/15 22:18:34 panne Exp $
+$Id: Parser.y,v 1.22 2000/02/17 14:47:26 panne Exp $
 
 Haskell grammar.
 
@@ -482,15 +482,15 @@ deprecations :: { RdrBinding }
 
 deprecation :: { RdrBinding }
 	: deprecated_names STRING
-		{ foldr1 RdrAndBindings [ RdrSig (DeprecSig n $2) | n <- $1 ] }
+		{ foldr1 RdrAndBindings [ RdrSig (DeprecSig n $2 l) | (l,n) <- $1 ] }
 
-deprecated_names :: { [RdrName] }
+deprecated_names :: { [(SrcLoc,RdrName)] }
 	: deprecated_names ',' deprecated_name	{ $3 : $1 }
 	| deprecated_name			{ [$1] }
 
-deprecated_name :: { RdrName }
-	: var					{ $1 }
-	| tycon					{ $1 }
+deprecated_name :: { (SrcLoc,RdrName) }
+	: srcloc var				{ ($1, $2) }
+	| srcloc tycon				{ ($1, $2) }
 
 -----------------------------------------------------------------------------
 -- Foreign import/export