projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Pass dynflags down to loadPackageConfig rather than using defaultDynFlags
[ghc-hetmet.git]
/
compiler
/
main
/
ParsePkgConf.y
diff --git
a/compiler/main/ParsePkgConf.y
b/compiler/main/ParsePkgConf.y
index
1a13108
..
1f6434b
100644
(file)
--- a/
compiler/main/ParsePkgConf.y
+++ b/
compiler/main/ParsePkgConf.y
@@
-149,11
+149,11
@@
strs :: { [FastString] }
happyError :: P a
happyError = srcParseFail
happyError :: P a
happyError = srcParseFail
-loadPackageConfig :: FilePath -> IO [PackageConfig]
-loadPackageConfig conf_filename = do
+loadPackageConfig :: DynFlags -> FilePath -> IO [PackageConfig]
+loadPackageConfig dflags conf_filename = do
buf <- hGetStringBuffer conf_filename
let loc = mkSrcLoc (mkFastString conf_filename) 1 0
buf <- hGetStringBuffer conf_filename
let loc = mkSrcLoc (mkFastString conf_filename) 1 0
- case unP parse (mkPState buf loc defaultDynFlags) of
+ case unP parse (mkPState buf loc dflags) of
PFailed span err ->
throwDyn (InstallationError (showSDoc (mkLocMessage span err)))
PFailed span err ->
throwDyn (InstallationError (showSDoc (mkLocMessage span err)))