[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

@@ -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