hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

-package ghc.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-04-29 12:30:23 +09:00
parent fb7f0c9802
commit 8fd3c80a54
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Check.hs
View File

@ -43,7 +43,7 @@ check fileName dir = ghandle ignore $ runGhc (Just libdir) $ do
initSession = do initSession = do
dflags <- getSessionDynFlags dflags <- getSessionDynFlags
(dflags',_,_) <- parseDynamicFlags dflags cmdOptions (dflags',_,_) <- parseDynamicFlags dflags cmdOptions
setSessionDynFlags $ setImportPath $ setOutputDir dir dflags' setSessionDynFlags $ setGhcPackage $ setImportPath $ setOutputDir dir dflags'
setTargetFile file = do setTargetFile file = do
target <- guessTarget file Nothing target <- guessTarget file Nothing
setTargets [target] setTargets [target]
@ -76,13 +76,18 @@ setImportPath d = d {
importPaths = importPaths d ++ ["..","../..","../../..","../../../../.."] importPaths = importPaths d ++ ["..","../..","../../..","../../../../.."]
} }
{-
setGhcPackage :: DynFlags -> DynFlags setGhcPackage :: DynFlags -> DynFlags
setGhcPackage d = d { setGhcPackage d = d {
packageFlags = ExposePackage "ghc" : packageFlags d packageFlags = ExposePackage "ghc" : packageFlags d
, ghcLink = NoLink
}
{-
setTarget :: DynFlags -> DynFlags
setTarget d = d {
hscTarget = HscNothing
} }
-} -}
---------------------------------------------------------------- ----------------------------------------------------------------
showErrMsg :: ErrMsg -> String showErrMsg :: ErrMsg -> String