Commit 671dfe67 authored by sof's avatar sof
Browse files

[project @ 2002-06-15 12:05:13 by sof]

Accept empty package lists.
parent 6dcb16bf
......@@ -32,7 +32,8 @@ import Exception ( throwDyn )
%%
pkgconf :: { [ PackageConfig ] }
: '[' pkgs ']' { reverse $2 }
: '[' ']' { [] }
| '[' pkgs ']' { reverse $2 }
pkgs :: { [ PackageConfig ] }
: pkg { [ $1 ] }
......
......@@ -28,7 +28,8 @@ import List(break)
%%
pkgconf :: { [ PackageConfig ] }
: '[' pkgs ']' { reverse $2 }
: '[' ']' { [] }
| '[' pkgs ']' { reverse $2 }
pkgs :: { [ PackageConfig ] }
: pkg { [ $1 ] }
......@@ -45,7 +46,7 @@ field :: { PackageConfig -> PackageConfig }
: VARID '=' STRING
{\p -> case $1 of
"name" -> p{name = $3}
_ -> error "unkown key in config file" }
_ -> error "unknown key in config file" }
| VARID '=' strlist
{\p -> case $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