diff options
| author | davve <davve@dtek.chalmers.se> | 2006-09-03 16:05:22 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-09-03 16:05:22 +0000 |
| commit | da3a10238905c825bfc916117f4c4895bb5c6284 (patch) | |
| tree | 06bb45497d1aedb7969a01e283144221487b7c82 | |
| parent | 037e011ce97c8ff2adb794bc99676bd94d00465a (diff) | |
Change mode to BatchCompile to avoid GHC API bug
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 62e9540c..2e06fc8d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -177,7 +177,7 @@ extractGHCFlags flags = [ flag | Flag_GHCFlag flag <- flags ] startGHC :: String -> IO (Session, DynFlags) startGHC libDir = do GHC.init (Just libDir) - let ghcMode = JustTypecheck + let ghcMode = BatchCompile session <- newSession ghcMode flags <- getSessionDynFlags session flags' <- initPackages flags |