[project @ 2003-06-23 19:40:21 by sof]

[ghc-hetmet.git] / ghc / utils / ghc-pkg / ParsePkgConfLite.y

diff --git a/ghc/utils/ghc-pkg/ParsePkgConfLite.y b/ghc/utils/ghc-pkg/ParsePkgConfLite.y
index 152ff9b..d4d8ddb 100644 (file)
--- a/ghc/utils/ghc-pkg/ParsePkgConfLite.y
+++ b/ghc/utils/ghc-pkg/ParsePkgConfLite.y
@@ -48,6 +48,11 @@ field        :: { PackageConfig -> PackageConfig }
                   "name" -> p{name = $3}
                   _      -> error "unknown key in config file" }
                        
+        | VARID '=' bool
+               {\p -> case $1 of {
+                       "auto" -> p{auto = $3};
+                       _      -> p } }
+
        | VARID '=' strlist             
                {\p -> case $1 of
                        "import_dirs"     -> p{import_dirs     = $3}
@@ -73,6 +78,11 @@ strs :: { [String] }
        : STRING                        { [ $1 ] }
        | strs ',' STRING               { $3 : $1 }
 
+bool    :: { Bool }
+       : CONID                         {% case $1 of {
+                                           "True"  -> True;
+                                           "False" -> False;
+                                           _       -> error ("unknown constructor in config file: " ++ $1) } }
 {
 data Token =
        ITocurly