Commit 06e4583d authored by sof's avatar sof
Browse files

[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.
parent 7b074323
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment