From 105fb636c561fd7a4d59644b0e6bc79d44bb8185 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 21 Feb 2000 18:56:02 +0000
Subject: [PATCH] [project @ 2000-02-21 18:56:02 by panne] Fixed typo in
deprecations parsing
---
ghc/compiler/rename/ParseIface.y | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 70fc0a3bd255..6858e9e07ec5 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -366,7 +366,7 @@ rule_forall : '__forall' '{' core_bndrs '}' { $3 }
deprecs :: { [(Maybe FAST_STRING, FAST_STRING)] }
deprecs : {- empty -} { [] }
- | deprecs ';' deprec { $3 : $1 }
+ | deprecs deprec ';' { $2 : $1 }
deprec :: { (Maybe FAST_STRING, FAST_STRING) }
deprec : STRING { (Nothing, $1) }
--
GitLab