Commit c1197bae authored by wolfgang's avatar wolfgang
Browse files

[project @ 2005-04-14 14:06:25 by wolfgang]

Fix previous commit
parent e9a1f08f
...@@ -875,16 +875,16 @@ upsweep ...@@ -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
= upsweep' hsc_env old_hpt stable_mods cleanup msg_act mods 1 (length 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, []) = 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:_) _ _ (CyclicSCC ms:_) _ _
= do putMsg (showSDoc (cyclicModuleErr ms)) = do putMsg (showSDoc (cyclicModuleErr ms))
return (Failed, hsc_env, []) 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 (AcyclicSCC mod:mods) mod_index nmods
= do -- putStrLn ("UPSWEEP_MOD: hpt = " ++ = do -- putStrLn ("UPSWEEP_MOD: hpt = " ++
-- show (map (moduleUserString.moduleName.mi_module.hm_iface) -- show (map (moduleUserString.moduleName.mi_module.hm_iface)
...@@ -915,7 +915,7 @@ upsweep hsc_env old_hpt stable_mods cleanup msg_act ...@@ -915,7 +915,7 @@ upsweep hsc_env old_hpt stable_mods cleanup msg_act
| otherwise = delModuleEnv old_hpt this_mod | otherwise = delModuleEnv old_hpt this_mod
; (restOK, hsc_env2, modOKs) ; (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 msg_act mods (mod_index+1) nmods
; return (restOK, hsc_env2, mod:modOKs) ; return (restOK, hsc_env2, mod:modOKs)
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment