template for -package ghc.

This commit is contained in:
Kazu Yamamoto 2010-04-28 23:28:18 +09:00
parent e94cc84c43
commit 5e21c71b1e

View File

@ -76,6 +76,13 @@ setImportPath d = d {
importPaths = importPaths d ++ ["..","../..","../../..","../../../../.."]
}
{-
setGhcPackage :: DynFlags -> DynFlags
setGhcPackage d = d {
packageFlags = ExposePackage "ghc" : packageFlags d
}
-}
----------------------------------------------------------------
showErrMsg :: ErrMsg -> String