diff options
| author | wolfgang <unknown> | 2005-04-14 14:06:25 +0000 |
|---|---|---|
| committer | wolfgang <unknown> | 2005-04-14 14:06:25 +0000 |
| commit | c1197baecba4c74b22f274d294b39aea5751d6c0 (patch) | |
| tree | 60173b03eee2aded038b49a3f95d6825ca2d902e | |
| parent | e9a1f08f6bde59dee2506a997f3302b94f921231 (diff) | |
| download | haskell-c1197baecba4c74b22f274d294b39aea5751d6c0.tar.gz | |
[project @ 2005-04-14 14:06:25 by wolfgang]
Fix previous commit
| -rw-r--r-- | ghc/compiler/main/GHC.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs index fadcd2cac4..215b381c8d 100644 --- a/ghc/compiler/main/GHC.hs +++ b/ghc/compiler/main/GHC.hs @@ -875,16 +875,16 @@ upsweep upsweep hsc_env old_hpt stable_mods cleanup msg_act mods = upsweep' hsc_env old_hpt stable_mods cleanup msg_act mods 1 (length mods) -upsweep hsc_env old_hpt stable_mods cleanup msg_act +upsweep' hsc_env old_hpt stable_mods cleanup msg_act [] _ _ = return (Succeeded, hsc_env, []) -upsweep hsc_env old_hpt stable_mods cleanup msg_act +upsweep' hsc_env old_hpt stable_mods cleanup msg_act (CyclicSCC ms:_) _ _ = do putMsg (showSDoc (cyclicModuleErr ms)) return (Failed, hsc_env, []) -upsweep hsc_env old_hpt stable_mods cleanup msg_act +upsweep' hsc_env old_hpt stable_mods cleanup msg_act (AcyclicSCC mod:mods) mod_index nmods = do -- putStrLn ("UPSWEEP_MOD: hpt = " ++ -- show (map (moduleUserString.moduleName.mi_module.hm_iface) @@ -915,7 +915,7 @@ upsweep hsc_env old_hpt stable_mods cleanup msg_act | otherwise = delModuleEnv old_hpt this_mod ; (restOK, hsc_env2, modOKs) - <- upsweep hsc_env1 old_hpt1 stable_mods cleanup + <- upsweep' hsc_env1 old_hpt1 stable_mods cleanup msg_act mods (mod_index+1) nmods ; return (restOK, hsc_env2, mod:modOKs) } |