[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 (file)
--- 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