{
module ParsePkgConf( loadPackageConfig ) where
+#include "HsVersions.h"
+
import Packages ( PackageConfig(..), defaultPackageConfig )
import Lex
import FastString
import SrcLoc
import Outputable
import Panic ( GhcException(..) )
-import Exception ( throwDyn )
-
-#include "HsVersions.h"
+import EXCEPTION ( throwDyn )
}
"name" -> returnP (\ p -> p{name = unpackFS $3});
_ -> happyError } }
+ | VARID '=' bool
+ {\p -> case unpackFS $1 of {
+ "auto" -> p{auto = $3};
+ _ -> p } }
+
| VARID '=' strlist
{\p -> case unpackFS $1 of
"import_dirs" -> p{import_dirs = $3}
: STRING { [ unpackFS $1 ] }
| strs ',' STRING { unpackFS $3 : $1 }
+bool :: { Bool }
+ : CONID {% case unpackFS $1 of {
+ "True" -> returnP True;
+ "False" -> returnP False;
+ _ -> happyError } }
+
{
happyError :: P a
happyError buf PState{ loc = loc } = PFailed (srcParseErr buf loc)
let loc = mkSrcLoc (mkFastString conf_filename) 1
exts = ExtFlags {glasgowExtsEF = False,
ffiEF = False,
+ arrowsEF = False,
withEF = False,
parrEF = False}
case parse buf (mkPState loc exts) of