From: sof <unknown>
Date: Tue, 2 Oct 2001 22:30:47 +0000 (+0000)
Subject: [project @ 2001-10-02 22:30:47 by sof]
X-Git-Tag: Approximately_9120_patches~873
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=06e4583da277cdef35b86233f883566e5cc08886;p=ghc-hetmet.git

[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.
---

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