From 06e4583da277cdef35b86233f883566e5cc08886 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 2 Oct 2001 22:30:47 +0000
Subject: [PATCH] [project @ 2001-10-02 22:30:47 by sof] field: robustify -
 give a parse error (rather than p-match failure) if LHS
 isn't known.

---
 ghc/compiler/main/ParsePkgConf.y |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/main/ParsePkgConf.y b/ghc/compiler/main/ParsePkgConf.y
index c61d31c..cae45bc 100644
--- a/ghc/compiler/main/ParsePkgConf.y
+++ b/ghc/compiler/main/ParsePkgConf.y
@@ -47,8 +47,9 @@ fields  :: { PackageConfig -> PackageConfig }
 
 field	:: { PackageConfig -> PackageConfig }
 	: VARID '=' STRING		
-		{\p -> case unpackFS $1 of
-		        "name" -> p{name = unpackFS $3} }
+                 {% case unpackFS $1 of { 
+		   "name" -> returnP (\ p -> p{name = unpackFS $3});
+		   _      -> happyError } }
 			
 	| VARID '=' strlist		
 		{\p -> case unpackFS $1 of
-- 
1.7.10.4